Вводится случайное четырехзначное число. Вывести на экран первую и третью цифру

Вводится случайное четырехзначное число. Вывести на экран первую и третью цифру этого числа.

Задать свой вопрос
2 ответа
Var a,b,c:integer;
begin
writeln(vvedite chislo);
readln(a);
b:=a div 1000;
c:=(a div 10) mod 10;
writeln(b, ,c);
end.

Решение на фото. Будут вопросы, пишите

, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт