По информатике
(даны 2 числа найдите наименьшие из них? )
вот пример
program z1;
var a: integer
begin
writeln('введите число')
readln(a);
if; a mod2=0
then writeln('чет')
else writeln('нечет');
readln;
and.

di23di    3   28.11.2019 18:16    0