Помогите решить #3,4,5

0 голосов
23 просмотров

Помогите решить #3,4,5


image

Информатика (26 баллов) | 23 просмотров
Дан 1 ответ
0 голосов

var a:integer;

begin

readln (a);

if (a div 10 + a mod 10) mod 6 = 0 then writeln('Сумма цифр числа кратна 6')

else writeln ('Сумма цифр числа не кратна 6');

if a div 10 > a mod 10 then writeln('Цифра десятков числа больше цифры единиц числа')

else writeln ('Цифра десятков числа меньше цифры единиц числа');

if a mod 10 = 6 then writeln('Число оканчивается цифрой 6')

else writeln ('Число не оканчивается цифрой 6')

end.

(1.7k баллов)
0

13 ниса 13 можешь помочь с задачями вот ссылка https://znanija.com/task/31076553 очень буду благодарен за эту помощью,

0

а это какая задача?

0

#3,4,5

0

там все задания как одна задача?

0

мне кажется это только 3

0

Тут одна программа, которая решает три задания (#3,4,5)

0

Каждый из условных оператор решает одно задание

0

спасибо