Если нужен алгоритм для системы "Кумир", то вот он:
использовать Чертежник
алг
нач
цел n,i,x,y
поднять перо
сместиться в точку (-2,-2)
нц для n от 0 до 3
нц для i от 1 до 4
выбор
при i=1: x:=0; y:=2
при i=2: x:=2; y:=0
при i=3: x:=0; y:=-2
при i=4: x:=-2; y:=0
все
опустить перо
сместиться на вектор (x,y)
поднять перо
сместиться на вектор (x*n,y*n)
опустить перо
сместиться на вектор (x,y)
кц
поднять перо
сместиться на вектор (-1,-1)
кц
кон
Вадим - Футбол и физика.
Саша - Баскетбол и информатика.
Агата - Хоккей и математика.
Валя - Волейбол и химия.
1. var a:array[1..100] of integer;
i,s:integer;
begin
for i:=1 to 25 do begin
a[i]:=random(5)+1;
write(a[i]:4);
end;
s:=0;
for i:=1 to 25 do begin
if a[i]<=2 then s:=s+1;
end;
writeln;
writeln('Количество неуспевающих=',s);
end.
это при условии,что человек неуспевающий,если у него оценка ниже или равна 2-ке
1 - телефон (по кол-ву букв в словах)
2 - лев (число повторяется через два)
3 - 13,26,13 (закономерность: +2, *2, /2)