Дано целое двузначное число y.составьте программу вычисления частного цифр числа.​

nata506 nata506    3   07.10.2019 19:40    2

Ответы

program q;

var

 a: integer;

 b: real;

begin

 b := 0;

 read(a);

 b := (a div 10 + a mod 10) / 2;

 writeln(b);

end.

На Pascal'e

*Проверил*

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика