Question

С клавиатуры вводится натуральное число К. Напиши программу, которая выводит на экран (по одному числу в строке) числа от 1 до К, кратные 2 и 3, но не кратные 4.(паскаль)

Answer 1

Ответ:

uses crt;

var k:integer;

begin clrscr;

writeln('Введите k');

read(k);

for i:=1 to k do

if (((i mod 2)=0) or ((i mod 3)=0)) and ((i mod 4)>0) then

writeln(i);

readkey;

end.

Answer 2

var k, i: integer;

begin

read(k);

for i := 1 to k do

begin

if ((i mod 2 = 0) and (i mod 3 = 0) and (i mod 4 <> 0)) then

   writeln(i);

end;

end.

Answer 3

Вот решение задачи на языке программирования Паскаль: ``` var K, i: Integer; begin Write('Введите число K: '); Readln(K); for i := 1 to K do begin if (i mod 2 = 0) and (i mod 3 = 0) and (i mod 4 <> 0) then Writeln(i); end; end. ``` Пояснение к программе: 1. Сначала мы объявляем две переменные: K для хранения введенного числа и i для итерации по числам от 1 до K. 2. Затем мы запрашиваем пользователя ввести число K с помощью функции Readln. 3. Далее мы используем цикл for для прохода по числам от 1 до K. 4. Внутри цикла if проверяем условие: i должно быть кратным 2 и 3 и не должно быть кратным 4. 5. Если условие истинно, т.е. число i удовлетворяет условиям, то выводим его на экран с помощью функции Writeln. 6. Программа завершается. Таким образом, программа выводит на экран все числа от 1 до K, которые кратны 2 и 3, но не кратны 4.