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

Question

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

Answer 1

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

---

Answer 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.