n:=5;
x:=0;
for i:=1 to n do
x:=i;
После выполнения цикла значение x будет равно 5
Label1.Caption:=IntToStr(x);
На экран будет выведено 5
===== PascalABC.NET =====
begin
foreach var n in Range(100, 999) do
if n mod 81 = 0 then
Print(n)
end.
var
a,s: integer;
<span>begin </span>
a:=10;
while a<=99 <span>do begin </span>
s:=s+a;
a+=1;
end;
writeln(s);
end.
Sqrt(x); это корень квадратный из х
Если у Марии было 3 собаки, то сколько их стало, когда Мария отдала 1 собаку Маше?