Информатика, вопрос задал enifeareel , 8 лет назад

напишите программу для решения задачи. используйте операции div и mod.
1. задано двузначное число. найдите среднее арифметическое цифр числа.

Ответы на вопрос

Ответил Ленгит
0
var a,b,c:integer;
s:real;
begin
write('Введите двузначное число: ');
readln(a);
b:= a div 10;
c:= a mod 10;
s:=(b+c)/2;
writeln('Среднее арифметическое цифр числа: ',s);
readln;
end.
Новые вопросы