Var n:integer;
S:real;
Begin
Write('n = ');ReadLn(n);
S:=0;
For n:= 1 to n do
S:=S+n;
WriteLn('а) S = ',S);
S:=0;
For n:= 1 to n do
S:=S+n*n;
WriteLn('б) S = ',S);
End.
Стакан с водой - a
Стакан с молоком - b
Дополнительный стакан - c
c=a;
a=b;
b=c;
УРАВНЕНИЕ
тура (без 1 буквы) - ура
в н е
книга (без 1 буквы и 2-х последних букв) - ни
е
Қызылды бас сосын канал ауыстырады көтінді жала сонда косылады