Ребят, помогите очень срочно! Написать программу задачи: дано все 3-х значные числа найти сумму и количество чисел которые кратны 9.
А что там писать? Первое трехзначное число кратное 9, это 108. А дальше с шагом 9 пошли.... закончив 999.
да я сама толком не понимаю..
ооокей
Что там писать, я уже ответил
Три оператора? Могу, но это позорище))) Пусть кто-то другой напишет)))
а ты можешь написать всю эту программу?
Арифметическая прогрессия с разностью 9. Есть начальный и конечный члены, есть разность. Количество членов и их сумма находятся по готовой формуле. Программа будет состоять из операторов begin; write(); end. В операторе вывода пишем нужные формулы.
Var i, a, p: integer; begin a := 0; p := 0; for i := 100 to 999 do begin if i mod 9 = 0 then begin a := a + i; p := p + 1; end; end; writeln('Сумма = ', a); writeln('Кол-во чисел = ', p); end.
Никто и не спорит, просто в условии сказано, что даны все трёхзначные числа, вот и программа проверяет все)
развели базар какой то
я по этому предмету не собираюсь сдавать ЕГЭ.
А при сдаче экзамена в вуз могут и два снять.
Даже в несчастном ЕГЭ за решение, подобное Вашему снимают 1 балл.
Тогда, уверяю, Ваша программа и за неделю не закончит расчет....
А если будет сказано, что даны все шестнадцатизначные числа и надо выбрать кратные миллиону, Вы тоже будете все проверять?
Можно хотя бы пройти от 108 с шагом 9. Это во-первых. А во-вторых, "никто не говорил" вообще ничего, что способы решения ограничены, поэтому можно и через прогрессию...
никто не говорил, что нужно через прогрессию решать, хоть она там и есть, можно сделать что бы программа за тебя всё посчитала и проверила)
Да-да, Вы правы, все чудесно))))
