Помогите. Pascal abcНаписать программку, которая обретает сумму целых чисел ,которые больше

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

Задать свой вопрос
2 ответа
Var a2,a,c,sym:
integer;
begin
for a:=100 to 200 do begin
  a2:=a;
  while (a2lt;gt;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.
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.
Чегринец Яна
там же числа от 100 до 200
Айзенова София
сори 
Ljubov Bokadorova
туплю
Эвелина Голявкина
дальше, в if  скобку пропустил, заместо 10 в условии (div 10) напиши div 100
Дмитрий Тот
вот так верно будет
Jurka Vatazhicin
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.
Iljuha Molotovshhikov
а так, потрясающее решение, я вот затупил, через while пошол решать, муторно получилось и микропроцессор грузит
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт