Крош
Ёжик
Нюша
Бараш
Совунья
Кар-Карыч
Пин
Копатыч
Лосяш
Панди
Биби
Ну а если посчитать, всего их 77 (это Группы персонажей
Смешарики: основные персонажи (9)
Смешарики: прочие персонажи (34)
Смешарики: искусственно созданные персонажи (11)
Смешарики: вымышленные персонажи (23))
4.?
Первая программа
const n=10;
var a,b:array[1..n] of integer;
i,j:integer;
begin
for i:=1 to n do readln(a[i]);
for i:=1 to n do
writeln('a[',i,']=',a[i]);
for i:=n downto 1 do begin
for j:=n-i+1 to n do begin
b[j]:=a[i];
break;
end;
end;
for i:=1 to n do
writeln('b[',i,']=',b[i]);
end.
Вторая программа
const n=10;
var i,s1,s2:integer;
a:array[1..n] of integer;
begin
for i:=1 to n do readln(a[i]);
for i:=1 to n do begin
if(a[i] mod 2 = 0) then
s1:=s1 + a[i];
if(a[i] mod 2 <> 0) then
s2:=s2 + a[i];
end;
writeln('Разность равна: ',s1-s2);
end.
Третья программа
const n=10;
var i,s1,s2:integer;
a:array[1..n] of integer;
begin
for i:=1 to n do readln(a[i]);
for i:=1 to n do begin
if(i mod 2 = 0) then
s1:=s1 + a[i];
if(i mod 2 <> 0) then
s2:=s2 + a[i];
end;
writeln('Разность равна: ',s1-s2);
end.
n = 3;
var
a : array [1..n, 1..n] of char;
i,j : integer;
b : char;
begin
//Считывание массива
readln (b);
for i := 1 to n do
for j := 1 to n do
a[i,j] := b;
//Вывод массива
for i := 1 to n do
begin
for j := 1 to n do
write (a[i,j],' ');
writeln();
end;
end.