• Помогите. Pascal abc
    Написать программу, которая находит сумму целых чисел ,которые больше 100, меньшее 200, кратны 7 и заканчиваются на 1 или 4

Ответы 5

  • далее, в if  скобку пропустил, вместо 10 в условии (div 10) напиши div 100
    • Автор:

      hinton
    • 6 лет назад
    • 0
  • var sum, i : integer; begin    for i := 100 to 200 do       if (i mod 7 = 0) and ((i div 100 = 4) or (i div 100 = 1)) then          sum := sum + i;    writeln('Сумма равна ', sum) end.
  • а так, классное решение, я вот затупил, через while пошол решать, муторно получилось и процессор грузит
  • var sum, i : integer; begin    for i := 100 to 200 do       if (i mod 7 = 0) and ((i div 100 = 4) or (i div 100 = 1)) then          sum := sum + i;    writeln('Сумма равна ', sum) end.
    • Автор:

      jeremías
    • 6 лет назад
    • 0
  • var a2,a,c,sym:integer;beginfor a:=100 to 200 do begin  a2:=a;  while (a2<>0) do begin    c:=a2 mod 10;    a2:=a2 div 10;  end;  if (a mod 7 = 0 ) and ((c=1) or (c=4)) then sym:=sym+a;  end;  writeln('сумма чисел от sym=',sym);end.
    • Автор:

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

Войти через Google

или

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

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

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