// - комментарии, можешь не писать, это пояснение для тебя

var z,a,b,c,d,e,f: integer;
begin
Write('Введите пятизначное число'); read(z);
a:=a div 10000; // число десятков тысяч
b:=a mod 10000 div 1000; // число тысяч
c:=a mod 1000 div 100; // число сотен
d:=a mod 100 div 10; // число десятков
e:=a mod 10; // число единиц
f:=a+b+c+d+e; // сумма цифр
Writeln('Цифры: ', a,b,c,d,e);
Write('Сумма цифр: ',f);
end.

0 0

4 года назад

Для создания и обработки электронных документов используются компьютерные программы (отметь) Графический планшет текстовый редак

Fassendek [922]

Ответом будет 2 вариант

0 0

4 года назад

Составить блок-схему и программу, вычисляющую сумму квадратов четных чисел. Использовать цикл с предусловием или с постусловием.

x no name

Блок-схемы делать не рискую, но решение задачи во вложении :D

0 0

4 года назад

Прочитать ещё 2 ответа