Записать условие, которое является истинным, когда целое А не кратно трем и оканчивается нулем. Программа на 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
Рекомендуем личную консультацию

Елена Васильевна

Сейчас на сайте
Меня зовут Елена Васильевна, я репетитор по математике из г. Гомель (Беларусь). Занимаюсь со школьниками (8 по 11 класс), а также со студентами.
Посмотреть всех экспертов из раздела Учеба и наука > Информатика