Составить программу, которая в последовательности целых чисел ...
Составить программу, которая в последовательности целых чисел находит сумму чисел кратных 7 в диапозоне от 6 до 80. Программа получает на вход целые числа, кол-во не известно, 0-признак окончания
Входные данные: -7,14,84,0
Составить по Паскалю
Есть ответ
12.12.2022
479
Ответ
programm p;
var
a:array[1..100 ] of integer;
i,n:integer;
s:integer;
begin
readln n;
for i:=1 to n do
readln(a[i]);
s:=0;
for i:=1 to n do
begin
if (a[i]>5)and(a[i]
Если вы нашли правильное решение, вы можете поблагодарить нас начиная с 10 рублей.
Просто нажмите на кнопку "Подарить".
Просто нажмите на кнопку "Подарить".
12.12.2022
