Дано второе число если сумма цифр числа больше произведения этих чисел больше или равна произведению этих цифр то вывести эти цифры иначе вывести произведения этих цифр
154
229
Ответы на вопрос:
Var a,b,c: integer; begin read(a); b: =a div 10; c: =a mod 10: if ( (c+b) > = (c*b) ) then writeln(b,c) else writrln(c*b);
var a: array[1..100,1..100] of integer;
i,j,s,n,k: integer;
begin
read(n);
for i: = 1 to n do
for j: = 1 to n do begin
read(a[i,j]);
if i mod 2=0 then begin
k: =k+1;
s: =s+a[i,j];
end;
end;
writeln(s/k);
end.
Популярно: Информатика
-
Cjfd07.03.2020 17:48
-
pavel26601.12.2021 12:49
-
Kosty1254128.06.2020 13:20
-
mastermin05.11.2021 11:35
-
Strelok0924529.05.2021 13:41
-
sema142211.10.2022 15:57
-
kudryashovayantemik20.12.2021 05:57
-
buh58323.04.2021 23:14
-
05NARIMAN0518.01.2021 17:01
-
feliz360006.05.2022 19:29