Циклы!Решение вTurbo Pascal!

Циклы!Решение вTurbo Pascal!
Гость
Ответ(ы) на вопрос:
Гость
//Скучно //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.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы