Ответ(ы) на вопрос:
Гость
//Скучно
//Pascal ABC.NET 3.1 сборка 1219
//57
Var
x,k:integer;
begin
readln(x);
k:=0;
while x<>0 do
begin
if x mod 2=0 then k:=k+1;
readln(x);
end;
writeln(k);
end.
{А вот это интересно исключительно благодаря тому, что выдаёт компилятор в процессе}
//67
Var
x,y:real;
i:integer;
begin
x:=-1;
i:=0;
while x<=1 do
begin
y:=power(x,3);
writeln('f(',x,')=',y);
x:=-1;
i:=i+1;
x:=x+i*0.1;
end;
end.
Не нашли ответ?
Похожие вопросы