2 шаг - 9 1 5 7
3 шаг - 9 7 5 1
Var a:integer;
begin
readln(a);
if ((a mod 3 <>0) and (a mod 10 = 0) and (a div 10>0)) or (a=0) then
writeln ('true')
else writeln ('false');
<span>end.</span>
Программа на PascalABC
var n:integer;
begin
cls;
writeln ('Введите номер месяца');
readln (n);
if (n=1) or (n=2) or (n=12) then
writeln ('Зима')
else
if (n=3) or (n=4) or (n=5) then
writeln ('Весна')
else
if (n=6) or (n=7) or (n=8) then
writeln ('Лето')
else
writeln ('Осень');
end.
Канада, Бразилия, Япония - это страны.
Буду делать по одному. Лови!