Сколько трёхзначных чисел можно составить из цифр 0, 4, 7 при условии, что цифры не должны повторяться?
219
245
Ответы на вопрос:
Pascalabc.net const n = 3; var a : array [1..n,1..n] of string; smax : string; i,j,lmin,lmax,km : integer; begin lmax : = 0; smax : = ''; for i : = 1 to n do for j : = 1 to n do begin readln (a[i,j]); if length (a[i,j]) > lmax then begin smax : = a[i,j]; lmax : = length (a[i,j]); end; end; lmin : = length (a[1,1]); km : = 1; for i : = 2 to n do if length (a[i,i]) < lmin then begin lmin : = length (a[i,i]); km : = i; end; writeln (); for i : = 1 to n do begin for j : = 1 to n do write (a[i,j],' '); writeln (); end; writeln (); for i : = 1 to n do begin for j : = 1 to n do if (i = km) and (j = km) then write (smax,' ') else write (a[i,j],' '); writeln (); end; end.
Популярно: Информатика
-
astasevbogdanp08dn215.12.2021 06:15
-
klymukmaks17.10.2021 23:33
-
skp156307.05.2020 21:11
-
SHEVTSOVA118319.08.2021 05:28
-
Аминочка806.05.2022 23:08
-
Elena40700817.03.2021 13:38
-
NeZoX1111111125.11.2020 21:18
-
bogodist6808.04.2020 10:17
-
karinarigova222.06.2022 05:09
-
logan32330.11.2022 19:34