Опубликовано 4 года назад по предмету Информатика от AnnyM

Прога на Паскале. Надо ввести натуральное число и в нем вычислить сумму четных цифр (с конца этого числа) до первой не четной цифры.
Пример: ввод числа 1784
Вывод: 8+4=12

Ответ

Ответ дан petyaGavrikov

var
n,k,sum:integer; s,s1:string;
begin
write('n = '); readln(n);
s:='';
sum:=0;
while (n>0)and(n mod 2 = 0) do
begin
k:=n mod 10;
str(k,s1);
s:=s1+'+'+s;
sum:=sum+k;
n:=n div 10;
end;
if s<>'' then s[length(s)]:='=';
writeln(s,sum);
end.

Пример:
n = 1784
8+4=12
Ответ

Ответ дан vladmor

//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016)
var
a, s: integer;

begin
write('Введите число : ');
readln(a);
while a <> 0 do
begin
    if a mod 2 = 0 then begin
      s := s + a mod 10;
      write(a mod 10);
      a := a div 10;
      if a mod 2 = 0 then write('+') else break
    end;
end;
write('=');
writeln(s);
end.

Тестовое решение:
Введите число : 1784
4+8=12

Другие вопросы

Математика - 1 неделя назад

10 сентября был вторник. в какой день недели выпадает 13 августа в этом году?

Математика - 2 недели назад

На 9 машинах доставили 47700 кг зерна, сколько зерна могут перевезти 12 таких машин?

Математика - 2 недели назад

Масса слона на 24т700кгменьше массыкитакаковамассакита если масса слона 5т 800кг

Физика - 2 недели назад

Рассчитать среднюю скорость: s = 16 км t = 18 мин. ответ в м/с и в км/ч

Физика - 2 недели назад

Сколько часов и минут в -1,3ч и -2,75ч