Var
n, max, i, d: integer;
begin
readln(n);
max := 0;
for i := 1 to n do
begin
readln(d);
if (d mod 10 = 9) and ((max < d) or (max = 0)) then
max := d;
end;
writeln(max);
end.
Вид информации чувство орган
зрительная зрение глаза
звуковая слух уши
вкусовая вкус язык
обонятельная обоняние нос
осязательная осязание кончики пальцев
Ответ:
8
Объяснение:
смотри прикрепленные изображения:
перебрать все города,и смотреть по построенному графу,можно ли попасть во все остальные
и замечаем,что только из 8 можно попасть во все остальные города
заметить, что в город 8 нельзя никак попасть, а в остальные города из 8 можно, следовательно город 8 - будущая столица
Var i,k,x,y,l,m,s:integer;
begin
readln(k);
readln(x);
readln(y);
readln(l);
readln(m);
for i:=1 to k do
begin
s:=x*l;
x:=x+y;
l:=l+m;
end;
writeln(s);
end.
Если нужно, переменные можно вводить в 1 строку через пробел, записав так: readln(a,b,c,d)