Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
на вход "черного ящика"подается число 125. о чем в этом случае говорит отказ: кажеться а
program xxx;
var i, n, s : integer;
begin
write('введите число n=');
readln(n);
s: =0;
i: =2;
while i< =n do
s: =s+i;
i: =i+2
end;
write('сумма четных чисел =', s);
readln
end.
смотри блок-схему в приложенном файле
read (n);
i : = 1;
repeat
writeln(i*i);
i : = i + 1;
untill i*i > n
Популярные вопросы