Вопрос по информатике:
Вычислить сумму натуральных чисел,кратных 3,меньшую 100.
Паскаль
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 21.06.2018 20:27
- Информатика
- remove_red_eye 13305
- thumb_up 21
Ответы и объяснения 2
begin
sum:=0;
for i:= 1 to 100 do
begin
if (i mod 3 = 0) and (sum+i<100) then
sum:=sum+i;
end;
writeln(sum);
end.
- 22.06.2018 13:17
- thumb_up 26
// PascalABC.NET 3.2, сборка 1381 от 04.02.2017
// Внимание! Если программа не работает, обновите версию!
begin
var n:=3;
var s:=0;
repeat
s+=n;
if s>=100 then begin s-=n; break end
else
if n3 then Write('+',n) else Write(n);
n+=3
until false;
Writeln('=',s)
end.
Результат
3+6+9+12+15+18+21=84
- 23.06.2018 08:01
- thumb_up 11
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.