var a : integer;
c:real;
begin
writeln('Введите число: ');
readln(a);
c:=a/2;
writeln('слагаемые: ', c, ' + ' , c);
end.
Поделитесь своими знаниями, ответьте на вопрос:
Дано двузначное число. Найти его слогаемые сделать в паскале (к примеру 9+9=18)
var a : integer;
c:real;
begin
writeln('Введите число: ');
readln(a);
c:=a/2;
writeln('слагаемые: ', c, ' + ' , c);
end.