Размещено 4 года назад по предмету Информатика от vlu96

Подсчитать количество чётных цифр, неравных 6 в введённом числе с помощью массива в паскале ( Пример 1213 - кол-во цифр =1) срочноо пожалуйста

Ответ на вопрос

Ответ на вопрос дан alexprogrammer

Ответ:
Программа без использования массива, так как смысла его использовать нет.
var x,rem,cnt:integer;
begin
readln(x);
cnt:= 0;
while x > 0 do
begin
rem:= x mod 10;
if (rem mod 2 = 0) and (rem <> 6) then
inc(cnt);
x:= x div 10
end;
writeln (cnt);
end.
1. Ответ на вопрос
  
  Ответ на вопрос дан pinguinbird
  
  Очень элегантно, только 0 тоже чётное число. Поэтому если ввести 0, то программа выдаст неверное значение. Поэтому предлагаю ветвление:
2. Ответ на вопрос
  
  Ответ на вопрос дан pinguinbird
  
  var x,rem,cnt:integer;
  begin
  readln(x);
  cnt:= 0;
  if x <> 0 then
  while x > 0 do
  begin
  rem:= x mod 10;
  if (rem mod 2 = 0) and (rem <> 6) then
  inc(cnt);
  x:= x div 10
  end;
  else cnt := 1;
  writeln (cnt);
  end.
3. Ответ на вопрос
  
  Ответ на вопрос дан pinguinbird
  
  Да, и для x лучше лонгинт использовать:
  var x:longint;
  var rem,cnt:integer;
  begin
  readln(x);
  cnt:= 0;
  if x <> 0 then
  while x > 0 do
  begin
  rem:= x mod 10;
  if (rem mod 2 = 0) and (rem <> 6) then
  inc(cnt);
  x:= x div 10
  end
  else cnt := 1;
  writeln (cnt);
  end.
4. Ответ на вопрос
  
  Ответ на вопрос дан pinguinbird
  
  Но вообще мне Ваш подход очень понравился
5. Ответ на вопрос
  
  Ответ на вопрос дан pinguinbird
  
  намного лучше моего
Ответ на вопрос

Ответ на вопрос дан pinguinbird

Ответ:
program HomeWork;
var c,i,si:integer;
var ss:longint;
var s:string;
begin
c:=0;
write('Введите число: '); readln(ss);
str(ss,s);
for i:=1 to length(s) do
begin
val(s[i],si);
if (si mod 2 = 0) and (si <> 6) then c:=c+1;
end;
writeln('Количество чётных цифр в ведённом числе (исключая цифру 6): ', c);
end.
1. Ответ на вопрос
  
  Ответ на вопрос дан vlu96
  
  прога не запускается, ошибка в val c параметрами указанных типов
2. Ответ на вопрос
  
  Ответ на вопрос дан pinguinbird
  
  странно, у меня компилится...я там строковый символ в интеджер перевожу
3. Ответ на вопрос
  
  Ответ на вопрос дан pinguinbird
  
  но вот ответ от AlexProgrammer прям чёткий, я там неболшие комменты добавил, но у него алгоритм намного лучше