Вопрос по информатике:
Найти сумму чисел от 50 до 100, кратных 2 и 3.
турбо паскаль!
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 01.04.2016 11:14
- Информатика
- remove_red_eye 1210
- thumb_up 43
Ответы и объяснения 2
Примерно так:
n массив [50..100]
int s:=0;
for n:=50 to 100 do
if (n mod 2=0) and (n mod 3)=0
then
s:=s+n;
думаю мысль поняли )
- 02.04.2016 16:09
- thumb_up 16
Var k,sum:integer;
begin
sum:=0;
for k:=50 to 100 do
if((k mod 2 = 0) and (k mod 3 =0)) then sum:=sum+k;
writeln(sum);
end.
- 04.04.2016 00:24
- thumb_up 48
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.