Решение задач по теме "Действия с целыми числами в Pascal"
Решение задачи №6
program six;
var
a:integer;
begin
write('A = ');
read(a);
writeln('Десятки = ', a div 10);
writeln('Единицы = ', a mod 10);
end.
Решение задачи №6
program six;
var
a:integer;
begin
write('A = ');
read(a);
writeln('Десятки = ', a div 10);
writeln('Единицы = ', a mod 10);
end.