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 и проверят четный остаток или нет, и следовательно четная это была цифра или нет)))

Answer 2

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

Answer 3

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