с клавиатуры вводится двухщначное число . Программа выдает его первую и вторуб цифру
Answers & Comments
Medved80034
Program abc; var a,b,c:integer; begin writeln('Введите двухзначное число'); readln(a); b:=a div 10; writeln(b); c:=a mod 10; writeln(c); end.
Answers & Comments
var a,b,c:integer;
begin
writeln('Введите двухзначное число');
readln(a);
b:=a div 10;
writeln(b);
c:=a mod 10;
writeln(c);
end.