Составить программу нахождения суммы чисел делящихся на 5 от 1 до n
SmartGirl555
2
08.10.2019 19:50
1
Другие вопросы по теме Информатика
uhon1k
13.06.2019 10:30
Олегнорм
13.06.2019 10:30
tagirok4525
13.06.2019 10:30
Tam192837465
23.07.2019 01:20
Vlad15218
23.07.2019 01:20
sleeplessness5
23.07.2019 01:20
nyushanyusha20owzt36
14.02.2021 15:42
Популярные вопросы
- Нужно подобрать цитаты необходимые для характеристики образов околичной...
3 - 1. Feruza ... ozoda yuradi. 2. Qish keldi,... oppoq qorga burkandi....
1 - Найдите правильное утверждение Второстепенные члены дополняют и проясняют...
3 - ДУЖЕ ТРЕБА ЗДАТИ ВЖЕ ЧЕРЕЗ 13 ХВИЛИН. розв яжи значення х за формулою...
1 - Чем характеризовалось господарське життя Крымских Татар?...
3 - Составьте алгебраическую сумму из следующих слагаемых: а, - b ,c...
3 - Напишите код Python. Вводится строка str=’синхрофазотрон’, каждый...
3 - Find ten more verbs. T Tс CIS3 al IQTTRE1C/Zx/HTMIZCloc- 3 -YPAC1KNDT...
3 - Trip you have ever done? (exciting/excited) place in the world? (fascinated/What...
1 - Заповніть пропуски, запишіть короткі відповіді....
3
var s,summ:integer;
begin
writeln("До какого числа считать");
readln(s);
for i:=1 to s do
if i mod 5=0 then
summ:=summ+i;
writeln(summ);
end.