Составьте программу,находящую средний по контрольной работе в группе из 10 человек.
2.Дано целое число,лежащее в диапазоне 1-999.Вывести строку-описание этого числа в виде >, >
176
297
Ответы на вопрос:
"чётное двузначное число", "нечётное трёхзначное число" и т.д. 1. Смотреть ответ. ... readln(a); if a mod 2=0 then s:='четное' else s:='нечетное'; if a in [1..9] then s:=s+' однозначное число'; if a in [10..99] then s:=s+' двузначное число'; if a in [100..999] then s:=s+' трехзначное число'
так как смогла не дай бан если не правильно
Uses crt; var a: array [1..12] of integer; p,i: integer; begin p: =1; for i: =1 to 12 do begin a[i]: =random(100); write(a[i],' '); if (a[i]< > 0) and (a[i] mod 4=0) then p: =p*a[i]; end; writeln; write(p); end.
Популярно: Информатика
-
nataliarianna2909.06.2022 03:01
-
zemkaaa110.07.2022 07:33
-
yuliyasecheva14.11.2022 18:21
-
lizadyugovskay02.11.2021 18:25
-
Бла16121.07.2022 18:49
-
yakun300810.06.2022 09:09
-
ника214426.05.2022 02:37
-
astakastaj08.06.2023 06:45
-
Zeerorrrrrr10.04.2021 23:34
-
PolinaGetto23.11.2022 16:44