Question

Срочно срочно сделайте в паскале плиз
Даны целые числа K и N (N>0). Вывести N раз число K.
Напечатать те из двузначных чисел, которые делятся на 4 но не делятся на 6

Answer 1

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.