Var N, k, i: integer;
begin
write(' N = ');
readln(N);
k:=0;
for i:=N downto 1 do
k:=k+i*i;
writeln ('k=', k);
end.
<u>Хорошо, когда задают задачи с решением в одну строчку!</u>
// PascalABC.NET 3.1, сборка 1239 от 08.05.2016
begin
Writeln('Количество "МА" равно ',
ReadlnString('>').MatchValues('МА',RegexOptions.IgnoreCase).Count)
end.
<u><em>Тестовое решение</em></u>
> Мама мыла раму. Маша ела мандарины.
Количество "МА" равно 4
Мальчик1=м1 мальчик2=м2
мужык=М
1 шаг
М м1,м2
2 шаг
М,м1 м2
3 шаг
м1 М,м2
4 шаг
м1,м2 М
5 шаг
(пустота) м1,м2,М
5*20=100 минут
Растровая и векторная графика