Вопрос, который вызвал трудности
Ответ экспертов Учись.Ru
Чтобы дать полноценный ответ, был привлечён специалист, который хорошо разбирается в теме «Информатика». Ваш вопрос звучал так: Дано пятизначное число. найти сумму первой, третьей ,пятой цифр произведение второй и четвертой
После обсуждения с другими специалистами сервиса мы пришли к выводу, что правильный ответ на ваш вопрос будет звучать следующим образом:
// Pascal ABC.NET
var
n, digit : integer;
mult : integer := 1;
sum, count : integer;
begin
readln(n);
while n <> 0 do begin
digit := n mod 10;
inc(count);
if count mod 2 = 1 then
sum += digit
else
mult *= digit;
n := n div 10;
end;
writeln('Summa is ', sum);
writeln('Multiplication is ', mult);
end.