Составить программу в паскале для 8 класса, без array пожалуйста, задача: найти кол-во...

Question

Составить программу в паскале для 8 класса, без array пожалуйста, задача: найти кол-во четных цифр числа, тема - разработка алгоритма содержащего цикл с условием, тоесть с while, do, begin ну тоесть их испобьзовать, вот так составить программу по задаче

Answer 1

Самое простое что придумал)))
uses crt;
var
i,a,s:integer;
begin
write('vvedite 4islo: ');
read(a);
s:=0;
while a>=1 do
begini:=a mod 10;
a:=a div 10;
if i mod 2=0 then
s:=s+1;
end;
write('kolvo 4etnblx=',s);
read;
end.
смысл программы:делит число на 10 и проверят четный остаток или нет, и следовательно четная это была цифра или нет)))

Comments

вме хорошо, но программу проверял?)

---

да, у меня все прекрасно работает,, проверял на числах 22, 15, 36, 421

---

тут просто я когда копировал из паскаля забыл поставить enter после begin, но если вы не додумались сами его поставить и исправить такой простой момент, то....

---

сори я не вчитался в задание.. я думал из введеных (то есть их много) найти кол-во четных а не из одного.

---

ну вот мы и поняли друг друга))))

---

Ага)

---

честно, мы ещё в прошлом году в школе такую через for писали, я тогда много времени убил пока нашел способ как это проверить)))) зато теперь)))) кстати можно в конце добавить вопрос, чтобы зациклить всю программу))) и тогда можете по одному проверять хоть over 9000 чисел)))

---

Я просто не сильно внимательно глянул, умаю что за х,..вроде бы же нужно проверить числа...только потом понял))) Ой я в прошлом году так намучился, зато сейчас все ок... Теперь правда assembler мучаю...голова кипит)

---

ну тогда удачи вам))) я вот с файлами щас в основном работаю))) думаю от нефиг делать написать пргогу, которая будет находить в винде конфиг нетовского подключения и менять его, если он вдруг полетит или т.п., чтобы не долбаться с этими модемами)))

---

Спасибо, в универе она явно не помешает..завтра по нему экзамен...сижу кодю с перепугу