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.
К readln( добавь f, ибо программа работает нестабильно
В первом ответ г)
во втором ответ б)
Ответ:
3 положительных ответа
Объяснение:
решения:
20=0+4+4+4+4+4
11=0+4+4+4+4-5
2=0+4+4+4-5-5
действия можно переставлять местами, остальные вариации ответов отрицательны
Сначала кило байты переводим в биты
20 889 600 бит
Это число делим на 850
24576 сек