Вот тебе мой шедевр вместе с фото, которое ты прочитаешь...
да и совет на будущее, ДЕЛАЙ ВСЕ САМ ! не получается, значит тренеруйся,)
Так? В условии проверяется четность числа. Четность определяется с помощью MOD
Решение 1-й задачи:
//PascalABC.Net
//NaaMan
var
i, n : integer;
begin
i := 0;
repeat
write('Введите число > ');
readln(n);
if (n > 0) then
if (n mod 2 = 0) then
if (n mod 3 = 0) then i := i + 1;
until (n = 0);
writeln('Количество чётных чисел, кратных 3: ', i)
end.
Для решения второй задачи нужно заменить (n mod 2 = 0) на (n mod 2 = 1) и (n mod 3 = 0) на (n mod 7 = 0).
<span>АНКЛАН, в переводе с чукотского - это просто "люди", а пасти оленей в тундру - чауча "люди, у которых есть олени" (отсюда и пошло название чукча) .</span>