Организовать с клавиатуры ввод N произвольных целых чисел. Найти сумму кратных 7 и количество оставшихся
Нужно написать блок схему и к ней программу
Ответы
Ответ дал:
0
var
n, a, k7, ost: longint;
begin
readln(n);
k7 := 0;
ost := 0;
for i := 1 to n do begin
read(a);
if (a mod 7 = 0) then
inc(k7, a)
else
inc(ost);
end;
writeln('Сумма чисел, кратных семи, равна ', k7);
writeln('Количество оставшихся чисел равно ', ost);
end.
n, a, k7, ost: longint;
begin
readln(n);
k7 := 0;
ost := 0;
for i := 1 to n do begin
read(a);
if (a mod 7 = 0) then
inc(k7, a)
else
inc(ost);
end;
writeln('Сумма чисел, кратных семи, равна ', k7);
writeln('Количество оставшихся чисел равно ', ost);
end.
Приложения:
Ответ дал:
0
Блок схема, минутку
Ответ дал:
0
Спасибо
Вас заинтересует
1 год назад
1 год назад
1 год назад
7 лет назад
7 лет назад