Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

МНОГО БАЛЛОВ Задания 6,7
5 , ради Бога, не решайте, там график нечеткий!

Ответ оставил Гость

Var
  n,p:longint;
  i:byte;
begin
  Write(Введите 4х-значное натуральное число: ); Read(n);
  p:=1;
  for i:=1 to 4 do begin p:=p*(n mod 10); n:=n div 10 end;
  if Odd(p) then Writeln(Произведение цифр числа нечетное)
  else Writeln(Произведение цифр числа четное);
end.

*--------------------------

var
  n:longint;
  i,k:byte;
begin
  Write(Введите натуральное число: ); Read(n);
  k:=0;
  while n>0 do begin
    if not((n mod 10) in [3,4]) then Inc(k);
    n:=n div 10
  end;
  Writeln(Количество цифр, не равных 3 или 4: ,k);
end.