Предмет: Информатика,
автор: vetrovdv
Напишите программу по блок схеме
Приложения:

Ответы
Автор ответа:
1
Var
x,y:integer;
Begin
readln(x);
if x=10
then
y := 5
else if x > 10
then
y := sqr(x)+2
else
y := sqr(x);
write(x + ' ' + y);
End.
Похожие вопросы
Предмет: Биология,
автор: shortienagito
Предмет: Математика,
автор: koooooe
Предмет: Немецкий язык,
автор: dendenchikkandaurov2
Предмет: Математика,
автор: egorbokhonov1
Предмет: История,
автор: Lawerence