Регистрация
GreenDiamonds
08.08.2021 11:54
Информатика
Есть ответ 👍

Введите с клавиатуры число , если оно четное , то уменьшить его в 10 раз , если не четное, то возвести в квадрат. паскаль.

239
257
Посмотреть ответы 2

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

Diron2004
Diron2004
4,6(86 оценок)
Program funct; uses crt; var x: integer;         y: real; begin clrscr; writeln('enter x: '); readln(x); if (x mod 2=0)     then     begin         y: =x/10;     end else       begin         y: =x*x;     end; writeln('y=',y); readln; end.
LonFostYT
LonFostYT
4,6(100 оценок)

После выполнения фрагмента программы, переменна d = 20

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