var a,b,n,i:integer;
begin
write('Введите a,b,n: ');
readln(a,b,n);
repeat
write(a,' ');
a:=a+n
until a>b
end.
или
var a,b,n,i:integer;
begin
write('Введите a,b,n: ');
readln(a,b,n);
while a<=b do
begin
write(a,' ');
a:=a+n
end
end.
[32, 40, 48, 8]
Общий вес I = K * i (K - кол-во символов, i - вес одного символа/бит на символ)
K = 32 * 40 * 48 шт = 61440 шт
Вес текста I = 61440 * 8 бит = 491520.0 бит =
= 61440.0 байт = 60.0 Кбайт = 0.05859375 Mбайт
Вместо вир поставить фок
вместо курс поставить танц
вместо б поставить д
вместо к поставить ф
Var
m: array [1..9] of integer;
i: integer;
begin
for i:= 1 to 9 do
begin
if i mod 3=1 then m[i]:= random(100,999);
if i mod 3=2 then m[i]:= i*10;
if i mod 3=0 then m[i]:= m[i-2] + m[i-1];
write (m[i],' ');
end
<span>end.</span>