Решите все задания по паскалю ABC пожалуйста очень надо

Question

Решите все задания по паскалю ABC пожалуйста очень надо

Экономика

Гость

Ответ(ы) на вопрос:

Accepted Answer

№2. Program chisla; Uses crt; Var a: longint; Begin ClrScr; Writeln ('введи число'); Readln (a); If a mod 2 = 0 then begin writeln (a, '-чётное число'); end else writeln (a, '-нечётное число'); end.