Program n1;
var a,b: integer;
begin
readln(a,b);
if (odd(a)) xor (odd(b)) then write('true')
else write('false');
end.
Var x,y:integer;
begin
repeat
readln(x);
y := y + 1 - (x mod 2);
until x = 0;
writeln(y);
<span>end.</span>
Упражнение 1
А) Все электроприборы работают с помощью электрического тока.
Б) Каждый школьник должен знать и неукоснительно выполнять правила поведения в школе и этикет.
В) Глаза должны находить от монитора компьютера на расстоянии 50 сантиметров, глазам необходимо давать отдохнуть каждые 10 минут.
//PascalABC.NET (версия 3.1, сборка 1198 от 11.03.2016)
var i,n:integer;
begin
readln(n);
for i:=1 to n do writeln(i,'*',i,' = ',i*i);
end.
01:10, 02:20,03:30,04:40,05:50,11:11,12:21,13:31,14:41,15:51,21:12,22:22,23:32,24:42,25:52 вроде все