1. Информатика
  2. Напишите программу, которая

Напишите программу, которая в последовательности натуральных чисел определяет сумму чисел кратных 7, оканчивающихся на 5. программа получает на вход количество последовательных чисел, а затем сами числа.

alenazakhar2000al alenazakhar2000al    2   27.09.2019 16:01    1

Ответы
nekitder nekitder  16.08.2020 23:23

var

i,sum,n,x:integer;

Begin

sum:= 0;

readln(n);

for i:=1 to n do begin

readln(x);

if(x mod 7 = 0) and (x mod 5 = 0) then

sum:=sum+x;

end;

writeln(sum);

End.


Напишите программу, которая в последовательности натуральных чисел определяет сумму чисел кратных 7,
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
elfimovakd elfimovakd  06.06.2019 22:20
Втаблице dat хранятся данные измерений среднесуточной температуры за 10 дней в градусах (dat[1] – данные за первый день, dat[2] – за второй и т. определите, какое число...
friyukelizaveta friyukelizaveta  06.06.2019 22:20
Составте программу, которая определяет длину введенных слов, сравните их между собой и большее выводит на экран....
Ivanych086 Ivanych086  24.06.2019 19:10
Найди лишнее двоичное число и зачеркни 10 100 110 111 1010 101 111 1001 110 11 01 10 11 100...
12202020303030139 12202020303030139  17.05.2021 14:26
у транспортний ліфт вогтажнопідйомності 1500 кг помістили три цистерни з масою m1, m2, m3 написати що виводить повідоиленнч чи перевантажений ліфт ​...
esmeraldadoctor esmeraldadoctor  16.05.2020 12:43
Воспроизведите действия чертежника на его рабочем поле (координатная сетка) по следующему алгоритму: использовать Чертежник алг нач Поднять перо Сместиться в точку (2,10)...
anatoliy92itf anatoliy92itf  28.04.2020 12:07
Найдите ошибки в операторах и отметьте правильный вариант ответа 1) for 1 to 6 do 2) for 1 do 6 to 3) for 1 to a: = 6 do 4) for a: = 1 to 6 do...
mira132 mira132  28.04.2020 12:07
Пусть A, B, C -логические величины, которые имеют следующие значения: A- ЛОЖЬ, B - ИСТИНА, C - ИСТИНА. Какие логические формулы будут являться истинными:1. не А2. A или...
Balthazar1 Balthazar1  05.09.2019 16:00
Синтаксический разбор. однажды нам в подарок принесли березку,выкопанную с корнем....
timcherkasov07p02k8v timcherkasov07p02k8v  05.09.2019 16:00
0,1524 приблизительно чему равно? заранее !...
creeperm477 creeperm477  05.09.2019 16:00
Составьте предложения с выражениями: большой тяжелый чемодан,морская вечерняя прогулка...

Популярные вопросы