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

Ответы

var a: integer;
begin
        readln(a);
        if ((a mod 3 <> 0) and (a mod 10 = 0)) then
                writeln('истина')
        else
                write('ложь');
end;
07.06.16
Рекомендуем личную консультацию

Алексей

Сейчас на сайте
C/C++, Python, SQL, " Академическое программирование" , Prolog, статистика, теория вероятности, машинное обучение.
Посмотреть всех экспертов из раздела Учеба и наука > Информатика