ПАСКАЛЬ!!!!дано целое число а определить количество цифр в числе которые больше 5.

Question

David · Accepted Answer

примени эту программу себе 
uses crt; 
var x,sum: integer; 
begin 
 clrscr; 
 readln(n); 
 sum := 0; 
 while n0 do 
 begin 
 sum:=sum + x mod 10; 
 n := n div 10; 
 end; 
 write('Сумма цифр = ',sum); 
 readln; 
end.

Евгений · Answer

На неверно поставленный вопрос получите неправильный ответ: 
program dlina_chisla; 
var chislol, dlina:integer; 
chislo:string; 
begin 
writeln('Введите число'); 
read(chislol); 
if chislol>5 then 
begin 
chislo:=IntToStr(chislol) ; 
dlina:=length(chislo); 
writeln('Длина введенного числа ', dlina, ' знак(а)'); 
end; 
end.