Регистрация
Chelovek37153
28.06.2020 20:24
Информатика
Есть ответ 👍

по информатике . В 3 задании в конце ,,палитре,,

225
338
Посмотреть ответы 1

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

Викуся200631
Викуся200631
4,5(15 оценок)

Var sum, a, a1, a2, a3:integer;

Begin

Writeln('Введите трехзначное число');

Readln(a);

a1:=a div 100 ;

a2:=(a div 10) mod 10 ;

a3:=a mod 10;

sum:=a1+a2+a3;

Writeln(sum);

End.

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