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.

Answer 2

Конечно! Вот пример кода на языке Pascal, который выполняет указанную задачу:

pascalCopy code
program PrintNumbers;
var
  K, N, i: integer;
begin
  readln(K, N);

  for i := 1 to N do
    writeln(K);

  for i := 10 to 99 do
  begin
    if (i mod 4 = 0) and (i mod 6 <> 0) then
      writeln(i);
  end;
end.

Программа сначала считывает целые числа K и N. Затем она выводит число K N раз. После этого программа выводит все двузначные числа, которые делятся на 4, но не делятся на 6.

Пожалуйста, обратите внимание, что для выполнения программы вам понадобится среда разработки, способная компилировать и запускать код на языке Pascal.