Var
i, sum: longint;
begin
for i := 1 to 100 do sum := sum + sqr(i);
write(sum);
end.
Основные области: Компьютерная инженерия, моделирование, разработка игр.
Динамическое отображение
Какие предложения? Напиши по подробнее
Var
x, y: real;
begin
readln(x);
if x <= 0 then y := 0
else y := x;
writeln(y:3:0);
end.
1.При первом выполнении тела цикла i=1
2. 9 раз
3. Цикл с предусловием
4. var n: integer;
for n:=1 to 26 do
writeln(sqr(n));
5. for i:=34 downto 3 do
writeln(i)