Предмет: Информатика,
автор: vixen161
Pascal. Нужно просто вычислить значение выражения по формуле
Приложения:

Ответы
Автор ответа:
0
var y,x,a: Integer;
begin
writeln('Введите x: ');
readln(x);
writeln('Введите a: ');
readln(a);
if x<9 then
writeln('x<9, y=x+a=',x+a);
if x>9 then
writeln('x>9, y=x-a=',x-a);
if x=0 then
writeln('x=0, y=x²+a²=',(x*x)+(a*a));
end.
begin
writeln('Введите x: ');
readln(x);
writeln('Введите a: ');
readln(a);
if x<9 then
writeln('x<9, y=x+a=',x+a);
if x>9 then
writeln('x>9, y=x-a=',x-a);
if x=0 then
writeln('x=0, y=x²+a²=',(x*x)+(a*a));
end.
Интересные вопросы
Предмет: Математика,
автор: hecmanangelina
Предмет: История,
автор: katys13417
Предмет: Қазақ тiлi,
автор: ghoulll
Предмет: Литература,
автор: xasannargizamailru
Предмет: Математика,
автор: marinavn2008