Var
a,b:integer;
begin
a:=0;
b:=0;
//Вывод через while
while a<>10 do
begin
inc(a);
write(a,' ');
end;
writeln('');
//Вывод через repeat
repeat
begin
inc(b);
write(b,' ');
end;
until b=10;
<span>end.</span>
For
он может идти с нарастанием
for i:=1 to 10 do
и с убыванием
for i:=10 downto 1 do
Var i: Integer;
begin
write('Число: ');
readLn(i);
i := i mod 10;
writeLn('Цифра квадрата = ',
sqr(i) mod 10);
<span>end. </span>
X - количество вагонов, тогда вероятность того, что выбора купейного вагона p = x/28
I = log(2){1/(x/28)} =2
28/x =4
x =7
Ответ: 7 купейных вагонов