Дано 15 целых чисел от 20 до 35. Определить сумму тех из них, которые не делятся на 5 - Помощь студентам

Umka_Kitv · 13.03.2013, 14:21

Паскаль.....

Stilet · 13.03.2013, 14:24

Блез......

Sciv · 13.03.2013, 14:32

Код:

var a,i,sum: integer; begin randomize; sum:=0; for i:=1 to 15 do begin a:=Random(16)+20; writeln(a); if a mod 5<>0 then sum:=sum+i; end; writeln('Сумма=',sum); end.

13.03.2013, 14:21	#1
Umka_Kitv Новичок Джуниор Регистрация: 13.03.2013 Сообщений: 1	Дано 15 целых чисел от 20 до 35. Определить сумму тех из них, которые не делятся на 5 Паскаль.....

13.03.2013, 14:24	#2
Stilet Белик Виталий :) Старожил Регистрация: 23.07.2007 Сообщений: 57,097	Блез...... I'm learning to live...

13.03.2013, 14:32	#3
Sciv Старожил Регистрация: 16.05.2012 Сообщений: 3,211	Код: `var a,i,sum: integer; begin randomize; sum:=0; for i:=1 to 15 do begin a:=Random(16)+20; writeln(a); if a mod 5<>0 then sum:=sum+i; end; writeln('Сумма=',sum); end.` Начал решать проблему с помощью регулярных выражений. Теперь решаю две проблемы... Последний раз редактировалось Sciv; 13.03.2013 в 14:41.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Числа вводятся по одному с клавиатуры. Определить сумму тех из них, которые являются парными и тех, которые являются нечетными.	d_dima	Помощь студентам	3	13.03.2013 12:19
Дано 16 целых чисел от 1 до 16. Определить сумму тех из них, которые являются кратными введенному числу.	d_dima	Помощь студентам	10	07.03.2013 03:40
Дано 100 целых чисел. Определить сумму тех из них, которые кратны 7.	Yana Bila	Помощь студентам	15	06.03.2013 22:58
Ввести с клавиатуры n чисел. Определить произведение тех из них, которые являются положительными.	kandrash	C# (си шарп)	4	28.11.2012 16:33
Определить сумму тех веществееных чисел,которые больше Р. [Паскаль]	Анна22	Помощь студентам	1	07.12.2010 20:34