program a;
var
mas: 1..30,
ii: integer;
begin
for ii := 1 to 30
mas[ ii ] := 40 + random( 61 );
end.
Рёв
У меня было тоже такое
задание
2 Мартышки = 10 кг
Мартышка = 5 кг
Мартышка + 1 кг = 3 Капуцины
5+1кг = 3 Капуцины
Капуцина = 2 кг
Капуцина+Мартышка = Гиббон
5+2 = Гиббон
Гиббон = 7 кг
Мартышка + 3 Гиббона = Павиан + Капуцина
5кг+3×7=Павиан + 2 кг
26кг=Павиан + 2 кг
24кг= Павиан.
Отсюда:
Мартышка = 5 кг.
Капуцина = 2 кг.
Гиббон = 7 кг.
Павиан = 24 кг.
пусть введенный интервал будет
B и C,где B<C
var a,b,c,i:longint;
begin
read(b,c);
for i:=b to c do
if i mod a=0 then write(i);
end.