Регистрация
eevelinka742
05.06.2022 05:30
Информатика
Есть ответ 👍

Даю 100б Тема 5 Принципы работы Crowdfunding платформ
Тема6 Startup и реклама Путн продвижения и реализация продукта​

281
457
Посмотреть ответы 1

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

Maximp190302
Maximp190302
4,7(43 оценок)
Var a,s: integer; begin repeat write('vvedite triohznacinoe cislo: '); readln(a); until(a> 99)and(a< 1000); s: =a div 100+a div 10 mod 10+a mod 10;   if s mod 2=0 then writeln('summa zifr ciotnaia') else writeln('summa zifr neciotnaia '); readln; end.

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