Напишите программку, которая выведет на экран значение true либо false, в

Напишите программку, которая выведет на экран значение true или false, в зависимости от того, является ли введенное число х четырехзначным или нет.

Пожалуйста сделайте
Кому надо фото, 5 задание

Задать свой вопрос
Карина Лыськова
язык?
Борис Лиров
var x: integer;a: boolean;beginwriteln('Введите число');read(x);a:=(x>999);writeln('Число четырёхзначное ',a);end.
1 ответ

procedure foo(n: integer; k: integer := 0);

begin

 if n = 0 then Print(k = 4)

 else foo(n div 10, k + 1)

end;

begin

 var N := ReadInteger();

 foo(N)

end.

Викулька Кастулова
PascalABC.NET
, оставишь ответ?
Имя:*
E-Mail:


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

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт