Ответы на вопрос:
Programm pozitiv; var m,m1,m2 ,result: real; begin clrscr; write('введите число'); read(m); if m< 0 then write('вы ввели некорректное число') else begin m1: =m*m; m2: =m1; result: =m1+m2; write('ответ: ',result); end; end.
Популярно: Информатика
-
роллы603.07.2021 22:54
-
буля409.08.2021 15:50
-
kholdingmedia11.08.2022 14:16
-
ЕвгешаК200322.11.2021 01:23
-
artichdok7p08ovo15.06.2022 14:56
-
Ztduvuycc18.01.2020 01:14
-
букет22316.06.2023 17:51
-
OniksX23.08.2021 01:04
-
Den222825.02.2023 20:32
-
sjsdbj23.10.2022 15:36