Регистрация
kroshkaPo
09.01.2020 05:35
Информатика
Есть ответ 👍

Написать программу, вычисляющую сумму чисел от A до B (включительно) кратных 7. Если таких чисел не окажется (сумма=0), тогда необходимо вывести об этом сообщения на экран

228
353
Посмотреть ответы 3

Ответы на вопрос:

Dimka621
Dimka621
4,5(61 оценок)

a = int(input())

b = int(input())

c  = 0

d = b - a

for i in range(d):

if a // 7 == 0:

c += a

a += 1

print(c)

(Оно может не работать)

Объяснение:

саня2271337
саня2271337
4,4(40 оценок)

var A, B, i, sum: integer;

begin

 A := 1;

 B := 100;

 sum := 0;

 for i := A to B do begin

   if i mod 7 = 0 then

     sum := sum + i;

 end;

 if sum = 0 then

   writeln('Не встретилось ни одного числа, кратного 7');

 

 writeln(sum);

end.

Объяснение:

Примерно так, A и B можешь задать сам

vladimirova2002
vladimirova2002
4,7(98 оценок)
Const n=11; var a: array[1..n] of integer; i,s: integer; begin randomize; for i: =1 to n do   begin   a[i]: =random(16);   write(a[i],' ');   end; writeln; s: =0; for i: =1 to n do s: =s+a[i]; writeln('s=',s,'   sr=',s/n: 5: 2); end.пример работы: 6 12 7 9 3 15 10 10 6 2 8  s=88   sr= 8.00

Популярно: Информатика