Регистрация
pe4enel
16.08.2021 04:11
Информатика
Есть ответ 👍

Вычислить факториал числа

182
231
Посмотреть ответы 1

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

KILOBAIT
KILOBAIT
4,4(37 оценок)
Var a,s: longint; begin write('введите шестизначное число: '); readln(a); s: =a mod 10; a: =a div 10; s: =s+a mod 10; a: =a div 10; s: =s+a mod 10; a: =a div 10; a: =(a div 100)+(a div 10) mod 10 + (a mod 10); if a< > s then write('билет не является счастливым') else writeln('счастливый ! ') end.

Популярно: Информатика