Напишите программу , которая определяет , верно ли , что введенное число трехзначное.
197
478
Ответы на вопрос:
Var a: integer; begin read(a); if (a> 99) and (a< 1000) then write('yes') else write('no'); end.
Const n=10; var a,b,c: array[1..n] of integer; i: integer; begin randomize; writeln('a: '); for i: =1 to n do begin a[i]: =random(21); write(a[i]: 4); end; writeln; writeln('b: '); for i: =1 to n do begin b[i]: =random(21); write(b[i]: 4); end; writeln; for i: =1 to n do c[i]: =a[i]*b[n-i+1]; writeln('c: '); for i: =1 to n do write(c[i]: 4); writeln; end. пример: a: 20 10 18 11 5 9 0 9 10 8 b: 12 7 20 15 8 19 6 16 1 2 c: 40 10 288 66 95 72 0 180 70 96
Популярно: Информатика
-
Тупик10123.11.2021 16:02
-
skrimiks20.06.2021 01:40
-
yra837200422.03.2020 04:10
-
иван115526.11.2022 23:15
-
SASHA2310308.07.2022 01:17
-
Алёна0Чан09.10.2021 10:08
-
bolatzarina25.10.2022 03:53
-
eva30109.04.2022 21:46
-
8181000014.10.2021 22:59
-
Audana0001.05.2023 14:32