№Задача 5. Определите, четные или нечетные введенные числа. Зарубежная программа; Program chet;
Uses crt;
var a,b:integer;
begin
writeln('');
readln(a,b);
if a mod 2=0 then
writeln('a - zhup')
else writeln('a - tak');
if b mod 2=0 then
writeln('b - zhup')
else writeln('b - tak');
Repeat until keypressed;
End.

Ди1218    1   05.11.2020 13:49    2