• Даны четыре натуральных числа. Просуммировать те из них, которые не содержат цифру 5

Ответы 6

  • все что было дано я уже написала.
  • больше ничего добавить не могу
    • Автор:

      annaz4nk
    • 6 лет назад
    • 0
  • или просто ответьте на вопрос: как можно узнать, содержит или нет число цифру 5.
  • Ввести переменную пройтись по всем цифрам числаЕсли есть "5" - изменить значение переменной
  • var A,S,i:integer;procedure summ(a:integer;var s:integer);var k:integer; t:boolean;begin t:=false; k:=a; if k<10 then k:=k+10; repeat t:=(k mod 10=5); k:=k div 10; until (k=0) or t; if not t then s:=s+a;end; begin S:=0; for i:=1 to 4 do begin write(I,' число ='); readln(A); summ(A,S); end; writeln('S=',S);end.
  • х)var  i, k, b, a, sum: integer;begin  for i := 1 to 4 do  begin    readln(a);    b := a;    k := a;    while (b > 0) do    begin      if (b mod 10 = 5) then      begin        k := 0;      end;      b := b div 10;    end;    sum := sum + k;  end;  writeln(sum);end.
    • Автор:

      ellie
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years