напишите программу которая вычислит произведение и среднеарифметическое цифр двухзначного числа

Question

Ларисса

30 января, 09:18

+4

Ответы (1)

Знаете ответ?

Коста · Answer 1

Program dv;

var a1, a2, N: shortint;

begin

readln (N) ;

a1:=N div 10;

a2:=N mod 10;

writeln (a1*a2) ;

writeln (((a1+a2) / 2) : 4:4) ;

end.