Задать вопрос Регистрация
Помочь другим

  • написать программу находящую сумму всех трехзначных чисел, в записи которых есть четные цифры

Ответы 2

  • var a,b,c,d,j:integer;begin j:=0; for a:=100 to 112 do begin b:=a div 10; d:=a mod 10; c:=a-(100*b)-d; if (a div 2=a/2) or (b div 2=b/2) or (c div 2=c/2) then j:=j+1; end; writeln(j); end.

    это для pascalABC 

     

  • Program n1;Uses CRT;Var a,b,c,s,i: integer;beginClrScr; For i:=100 to 999 do begina:=i div 100;b:=i mod 100 div 10;c:=i mod 10;If (a mod 2=0)or(b mod 2=0)or(c mod 2=0) then s:=s+i; end;writeln('summa ravna ',s);readlnend.

    • Автор:

      chewbacca
    • 5 лет назад
    • 0

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

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

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

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