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

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.

Игорь Патратий · Answer 2 · 2019-06-20 12:38:49+3:00

Игорь Патратий 2019-06-20 12:38:49

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.

Чегринец Яна 2019-06-20 12:46:38

там же числа от 100 до 200

Айзенова София 2019-06-20 12:53:23

сори

Ljubov Bokadorova 2019-06-20 13:01:56

туплю

Эвелина Голявкина 2019-06-20 13:09:11

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

Дмитрий Тот 2019-06-20 13:18:46

вот так верно будет

Jurka Vatazhicin 2019-06-20 13:25:19

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 2019-06-20 13:29:28

а так, потрясающее решение, я вот затупил, через while пошол решать, муторно получилось и микропроцессор грузит

О проекте

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

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