Учеба и наука

Записать условие, которое является истинным, когда целое А не кратно трем и оканчивается нулем. Программа на Pascal ABC.NET - вопрос №1982558

июнь 7, 2016 г.

73-й в Учебе и науке

0 отзывов

var a: integer;

begin
readln(a);

if ((a mod 3 <> 0) and (a mod 10 = 0)) then

writeln('истина')

else

write('ложь');

end;

июнь 7, 2016 г.