Информатика

Вопрос/Задача:

Найти количество четных чисел в промежутке от 1 до n. n вводится с клавиатуры. в !

Ответы на вопрос

Ответ
Ответ разместил: Гость

program d;

var a,b,c: integer;

begin

writeln('введите 3 целых числа через пробел'); read(a,b,c);

if (a< > 0) and (b< > 0) and (c< > 0) then writeln((a+b+c)/3)

  else writeln('одно из чисел равно нулю');

readln;

end.

 

проверил - все работает. если возникнут вопросы - пиши в личку.

  удачи!

Ответ
Ответ разместил: Гость

1-да

2-да

3-в чем вопрос возможно да

4-нет

5-нет

Ответ
Ответ разместил: Гость

ответ:

а) переложи палочку из iv в xxvi

б)из второй ix палочку поменяй на iv

в)из плюса убери палочку и подставь к x

Ответ
Ответ разместил: Милана1245

вроде так.

k : = n div 2;   if odd(n) then inc(k);   writeln(k);

Ответ
Ответ разместил: людмила245

1.program ab; 2.var s, n : integer; 3.begin 4)s: =0; 5.for n: =1to10doif n mod2=0then s: =s+1; 6.writeln(s); 7.end.

Похожие вопросы

Вопросов на сайте: