Решение 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).
Правильный ответ у меня вышло Г
<em>// PascalABC.NET 3.2, сборка 1345 от 24.11.2016</em>
<em>// Внимание! Если программа не работает, обновите её версию!</em>
begin
1.To(ReadInteger('н=')).Println
end.
<u>Пример</u>
н= 13
1 2 3 4 5 6 7 8 9 10 11 12 13