Регистрация
robertsolovev39
18.01.2022 05:55
Информатика
Есть ответ 👍

Паскаль найти произведение четных натуральных чисел, меньших 100

102
161
Посмотреть ответы 3

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

danilkalmykov1
danilkalmykov1
4,4(26 оценок)

var i,s: integer; begin      s: =1;       for i : = 1 to 99 do            if i mod 2 = 0 then s: =s*i;       writeln(s); end.           

Песатель
Песатель
4,5(6 оценок)

var x,y: integer;

begin

x: =2;

y: =1;

while x< > 100 do

begin

y: =y*x;

x: =x+2;

end;

write(y);

end.

 

числа меньше ста, все правильно. не понял причину, почему модератор отправил на доработку.

SFDFGDDDDFGDGD
SFDFGDDDDFGDGD
4,5(55 оценок)
Var x, z: real; begin readln(x); if x < -5 then writeln('x - недопустимое число'); else z : = sqrt(x + 5); writeln(z); end.

Популярно: Информатика