Все за одного и одни за всех
На 234 метро вырастет деревом через 2340 дней
Var a:array[1..18] of integer;
s,i,x,n:integer;
begin
for i:=1 to 18 do a[i]:=0;
readln(n);
for i:=1 to n do begin
readln(x);
s:=x mod 10;
x:=x div 10;
s:=(x mod 10)+s;
a[s]:=a[s]+1;
end;
s:=1;
for i:=2 to 18 do if a[i]>=a[s] then s:=i;
writeln(s);
end.
Var
a, b: integer;
begin
write('введите a,b ');
readln(a, b);
if ((a + b) > 0) and ((a + b) mod 10 = 3) then
writeln((a + b) * 2)
else
writeln(a + b);
end.
Тест №1
введите a,b 10 3
26
Тест №2
введите a,b 5 6
11
Var a: Integer;
begin
writeln('Введите число');
readln(a);
if a>0 then a:=a*a;
if a<0 then a:=a-2;
if a=0 then a:=10;
writeln('Полученное число: ',a);
end.