Напишите программку на языке Паскаль для нахождение количества цифр в записи

Program ololo;
var a,b:integer;
begin
read(a);
if a = 0 then begin write(1); exit; end;
while a lt;gt; 0 do
begin
inc(b);
a := a div 10;
end;
write(b);
end.

Артём Гарайшин 2018-12-19 01:21:55

ну да, прога предлагает ввести число) значит у меня более удачный интерфейс)

Вера Манжосова 2018-12-19 01:27:23

О каком итерфейсе тут вобще может идти речь?

Олег Даненик 2018-12-19 01:31:27

IamHindiChunk кинь в комменты решение, я не лицезрел его

Меленчук Софья 2018-12-19 01:39:41

неоткуда брать, я сходу сюда писал( у меня примерно также, только нет if a = 0 then begin write(1); exit; end; так как a - положительное целое, и writeln еще один перед read(a) для ввода числа

Гальцева Марина 2018-12-19 01:47:58

для чего такие трудности? Можно ведь просто вывести длину строчки

Бросалов Вова 2018-12-19 01:56:55

Plugin, я оказывается не с тобой спорил) твое решение только что увидел внизу)

Мавшин Ванек 2018-12-19 02:00:06

Ахахаха

Руненко Иван 2018-12-19 02:05:59

Смешно вышло

Кирюха Кораченцев 2018-12-19 02:15:13

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

Денчик Курчигин 2018-12-19 02:17:57

Ну в условии этого не было )

О проекте

Напишите программку на языке Паскаль для нахождение количества цифр в записи

Добро пожаловать!