Помогите отыскать ошибкудано 3 числа распечатать все двухзначные числа begin program:

Помогите отыскать ошибку
дано 3 числа распечатать все двухзначные числа
begin
program: adf;
begin
var a,b,c :=in tege;
begin
writeln ('write');
read (a,b,c);
writeln (a,b);
writeln (b,a);
writeln (a,c);
writeln (c,a);
writeln (b,c);
writeln (c,b);
end

Задать свой вопрос
Павел
Тебе надобно отыскать двухзначные числа?
Михон Зебин
Да а так же трехзначные
Иван
щас напишу для трехзначных
1 ответ
Ты не верно оформил код вот верный ответ, НО ЭТО РАБОТАЕТ ТОЛЬКО ЕСЛИ Для тебя Надобно Отыскать ДВУХЗНАЧНЫЕ ЧИСЛА ИЗ ТРЁХ ВВЕДЁННЫХ   
program qwe;var a, b, c : LongInt;beginread (a,b,c);if a div 100 = 0 then write (a,' ');if b div 100 = 0 then write (b,' ');if c div 100 = 0 then write (c,' ');end.


Дижонов Семён
program qwe;var a, b, c : LongInt;beginread (a,b,c);if c > 9 and c < 99 then write(a,' ')else if c > 9 and c < 99 then write (b,' ')else if c > 9 and c < 99 then write (c,' ')elseif a > 99 and a < 999 then write (a, ' ');if b > 99 and b < 999 then write (b, ' ');if c > 99 and c < 999 then write (c, ' ');end.
Карина Сорокоумова
я хз почему, но там типы не подходят, хотя написано все верно
Илюшка
Вот сейчас всё работает, сначала выводит двухзначные, позже трёхзначные
Падарьян Виктор
program qwe;var a, b, c : LongInt;beginread (a,b,c);if (a > 9) and (a < 99) then write(a,' ');if (b > 9) and (b < 99) then write (b,' ');if (c > 9) and (c < 99) then write (c,' ');if (a > 99) and (a < 999) then write (a, ' ');if (b > 99) and (b < 999) then write (b, ' ');if (c > 99) and (c < 999) then write (c, ' ');end.
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт