<span>i:=5;
write('7');
while (i<6) do
begin
write(i);
i:=i+1;
end; Ответ будет 75</span>
1)var k,n,a:integer;
begin
readln(k,n);
for a:=1 to n do
writeln(k);
end.
2)var a:integer;
begin
for a:=10 to 99 do
if (a mod 4=0) and (a mod 6<>0) then writeln(a);
end.
Ответ :
в ) отделяет один раздел програми от другого...
Для прослушивания радиостанций Вы можете использовать популярную программу RadioСlicker - http://radioclicker.com/