Дорожные знаки называют - международным языком улицы! гос.стандартом определены 4 группы дорожных знаков - предупреждающие, запрещающие, предписывающие и указательные!)
<u>// PascalABC.NET 3.3, сборка 1634 от 14.02.2018</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
var M:=ReadInteger('M=');
var (s,n):=(0,1);
while s<=M do begin
s+=n*n; n+=1
end;
Writeln('Сумма ',s)
end.
Wde не работает, так что не проверял..
var n,x,s,i:integer;
begin
readln(n); // считываем n
for i:= 1 to n do begin
readln(x); // читаем одно из n чисел
s:=s+x; // добавляем к сумме
end;
writeln(s);
end.
Поблагодарил своих родителей
<em>VAR</em>
<em> s: String;</em>
<em> s1,s2,i: LongInt;</em>
<em>BEGIN</em>
<em> Read(s);</em>
<em />
<em> s1 := 0; s2 := 0;</em>
<em> for i := 1 to Length(s) do begin</em>
<em> if (s[i] = s[1]) then Inc(s1);</em>
<em> if (s[i] = s[Length(s)]) then Inc(s2);</em>
<em> end;</em>
<em />
<em> if (s1 > s2) then Write('Первая буква');</em>
<em> if (s1 < s2) then Write('Последняя буква'); </em>
<em> if (s1 = s2) then Write('Равное количество раз.'); </em>
<em>END.</em>