Program SummaKv;
var
n, i: integer;
begin
n := 0;
for i := 1 to 100 do
n := n + sqr(i);
writeln('Сумма квадратов первой сотни чисел = ', n);
end.
Здесь квадрат числа 100 так же включается в сумму.
Мой ответ отличается от твоих вариантов.
Начинаем в D:\Квартиры\Цены\Дорогие<span>.
</span>D:\Квартиры\Цены<span>.
</span>D:\Квартиры\Цены\Премиум<span>.
</span>D:\Квартиры\Цены\Премиум\Центральный
D:\Квартиры\Цены\Премиум.
Ответ: D:\Квартиры\Цены\Премиум.
var
n, i, e, m : Integer;
yes : Boolean;
begin
Readln(n);
m := 1;
yes := False;
for i := 1 to n do
begin
Readln(e);
if e > m then m := e;
if e < 30 then yes := True;
end;
Writeln(m);
if yes then Write('YES') else Write('NO');
end.
<span>1) a=5
b=a*4
b= b div 7+a
a=3*(b div a)
a=5 b=20
a=5 b=7
a=3 b=7
2) a=129
b=a div 10
a=a-10*b=
b=b div
Что-то в двух последних строках не так...
3) a=145
b=a div 10
a= a-b
b=a div b
a=145 b=14
a=131 b=14
a=131 b=9
4)a=5
b=a*3
a=b mod 7+a
b=b mod a+4
a=5 b=15
a=6 b=15
a=6 b=7
5)a=5
a=2*a-3
b=12-21/a
b=3*b-a
</span>a=7 b=0
a=7 b=9
a=7 b=20