Есть набор имен, зашифрованных неизвестным способом. расшифруйте имя нмъпяс.
205
475
Ответы на вопрос:
Pascalabc.net var a: array[1..10000] of integer; kz,maxp,n,i,j: integer; begin i: =0; maxp: =integer.minvalue; writeln ('готов к приему чисел'); repeat i: =i+1; readln (a[i]); until a[i]=0; n: =i-1; readln (kz); for i: =1 to n-1 do for j: =2 to n do if maxp< (a[i]*a[j]) then maxp: =(a[i]*a[j]); writeln ('получено ',n,' чисел'); writeln; writeln ('полученное контрольное значение: ',kz); writeln; writeln ('вычисленное контрольное значение: ',maxp); writeln; if kz=maxp then writeln ('контроль пройден') else writeln ('контроль не пройден'); end. результаты: 1) готов к приему чисел 1 2 3 4 5 0 20 получено 5 чисел полученное контрольное значение: 20 вычисленное контрольное значение: 20 контроль пройден 2) готов к приему чисел 1 2 3 4 5 6 0 20 получено 6 чисел полученное контрольное значение: 20 вычисленное контрольное значение: 30 контроль не пройден
Популярно: Информатика
-
virki201807.08.2021 12:54
-
sashasokolik30.09.2021 21:56
-
Thelow2601.10.2020 10:21
-
polinka308917.03.2022 23:30
-
Глеб041714.02.2022 08:31
-
alex225898504.07.2022 10:11
-
Frog77727.11.2021 00:59
-
Aizirek0202.03.2020 19:37
-
kristinka20000000511.04.2020 22:58
-
kurotetsu66629.06.2023 12:13