Франция- Париж, Чехия - Прага, Германия - Берлин, Испании - Мадрид, Португалии -Лиссабон
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:array[1..10] of integer;
i,k:integer; s:real;
begin
randomize;
writeln('Массив: ');
for i:=1 to 10 do
begin
a[i]:=random(11);
write(a[i],' ');
if a[i] = i then begin s:=s+a[i]; inc(k) end
end;
writeln;
write('S = ',s/k)
end.
Ответ:
использовать Робот
алг
нач
закрасить
нц пока слева свободно
влево
если снизу стена то закрасить всё
кц
нц пока сверху свободно
вверх
если слева стена то закрасить всё
кц
кон
Слайды могут содержать в себе - тексты, таблицы, диаграммы, рисунки, графические схемы, видео- и аудиоклипы. Слайды имеют такие свойства: 1) размер слайда 2) разметка слайда (расположение текста и т.д.) 3) дизайн оформления 4) эффект перехода от слайда к слайду!