Программа на вход получает целое положительное число. Вывести кол-во цифр в числе и если количесвто цифр в этом числе больше 3 , то ввести надпись "Количество цифр больше 3" в противном случае "Количество цифр меньше 3". While+if

друг сказал) если не правильно извини, но он вродь хорош в информе

таблица умножения

программа телепередач

телефонный справочник

прогноз погоды

меню в столовой

(12-3): (4+5)=1

1х2х3-4+5-6=1

(12: 3+4+5): (6+7)=1

(1+2-3+4+5+6-7): 8=1

на паскале:

var

n,s,p: integer;

begin

read(n);

p: =n mod 10;

if p mod 2=0 then writeln ('оканчивается на четную цифру')

                    else writeln ('оканчивается на четную цифру');

while n> 0 do

begin

n: =n div 10;

s: =s+1;

end;

writeln ('количество цифр в числе', s);

end.