Паскаль турбо. составить таблицу, заполняющую таблицу из 20 эл-ов нечетными двузначными числами и определяющую, сколько чисел в таблице, сумма которых равна 7.
270
362
Ответы на вопрос:
Const n=4; m=5; var a: array[1..n,1..m] of integer; i,j,k: integer; begin randomize; writeln('исходный массив: '); for i: =1 to n do begin for j: =1 to m do begin a[i,j]: =random(90)+10; if a[i,j] mod 2 = 0 then a[i,j]: =a[i,j]+1; write(a[i,j]: 4); end; writeln; end; k: =0; for i: =1 to n do for j: =1 to m do if (a[i,j] div 10 + a[i,j] mod 10) = 7 then k: =k+1; writeln('k = ',k); end. пример: исходный массив: 79 47 11 63 31 85 73 97 79 35 99 49 43 55 61 93 75 41 33 45 k = 2
На турбо паскале невозможно сделать этого, т.к. идет переполнение возможного лимита данных(real, longint). в идеале это должно выглядеть так: var a: real; i: byte; begin a: =1; for i: =1 to 100 do begin a: =a*i; end; writeln(a); end.
Популярно: Информатика
-
aknurrakhmanber27.03.2021 03:26
-
Xafe45608.05.2021 05:41
-
Vitalik199429.10.2022 23:26
-
V1ctoriaF0X23.12.2022 22:20
-
Adele0419.02.2020 11:50
-
Zarxis08.12.2021 19:25
-
Алёнка1208200430.03.2022 20:27
-
longer12324.04.2022 06:53
-
Mak7843431.03.2023 14:22
-
dashazoriksv27.06.2022 23:27