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.