Регистрация
StePAHka228
11.02.2021 02:07
Информатика
Есть ответ 👍

Скласти Програму на мові Pascal

126
419
Посмотреть ответы 1

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

berezniki14
berezniki14
4,6(65 оценок)
Function y(x: real): real; begin   if x > 1 then y : = sqr(x)   else y : = x; end; var x: real; begin   write('x = '); readln(x);   writeln('y(', x, ') = ', y(x));   writeln;       // табуляция   x : = -1;   repeat     writeln('y(', x: 4: 1 , ') = ', y(x): 5: 2);     x : = x + 0.5;   until x > 2; end.

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