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

1

Ответы и объяснения

2013-11-04T19:07:12+00:00
Самое простое что придумал)))
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 и проверят четный остаток или нет, и следовательно четная это была цифра или нет)))
Ага)
честно, мы ещё в прошлом году в школе такую через for писали, я тогда много времени убил пока нашел способ как это проверить)))) зато теперь)))) кстати можно в конце добавить вопрос, чтобы зациклить всю программу))) и тогда можете по одному проверять хоть over 9000 чисел)))
Я просто не сильно внимательно глянул, умаю что за х,..вроде бы же нужно проверить числа...только потом понял))) Ой я в прошлом году так намучился, зато сейчас все ок... Теперь правда assembler мучаю...голова кипит)
ну тогда удачи вам))) я вот с файлами щас в основном работаю))) думаю от нефиг делать написать пргогу, которая будет находить в винде конфиг нетовского подключения и менять его, если он вдруг полетит или т.п., чтобы не долбаться с этими модемами)))
Спасибо, в универе она явно не помешает..завтра по нему экзамен...сижу кодю с перепугу