Написать программу на Паскале. Дано четырехзначное натуральное число. Найти количество цифр данного числа, большие цифры А (А вводит пользователь) и определить, верно ли, что данное число кратно 3.

1

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

  • Участник Знаний
2014-03-28T17:54:05+04:00
Var
  i,s:integer;
  x,a:string;
begin
write('Введите четырехзначное число: ');
readln(x);
write('Введите цифру: ');
readln(a);
for i:=1 to 4 do if a=x[i] then s:=s+1;
writeln('Эта цифра встречается ',s,' раз');
if StrToInt(x) mod 3=0 then 
   writeln('Число кратно 3') 
   else writeln('Число не кратно 3')
end.