Напишите программы для решения задач. Используйте операция div и mod.

1. Задано двузначное число. Найдите среднее арифметическое цифр числа.

2. Задано двузначное число. Найдите разность между количеством десятков и единиц.

Question

Информатика

Ревекка

14 апреля, 10:37

Напишите программы для решения задач. Используйте операция div и mod.

1. Задано двузначное число. Найдите среднее арифметическое цифр числа.

2. Задано двузначное число. Найдите разность между количеством десятков и единиц.

+2

Ответы (2)

Знаете ответ на вопрос?

Варюся · Answer 1

1)

Program n1;

var a: integer;

begin

readln (a) ;

write ((a mod 10 + a div 10) / 2) ;

end.

2)

Program n2;

var a: integer;

begin

readln (a) ;

write (a div 10-a mod 10) ;

end.

Лаврюся · Answer 2

Задача №1

var a:integer;

begin

readln (a) ;

writeln (((a div 10) + (a mod 10)) / 2) ;

end.

Задача №2

var a:integer;

begin

readln (a) ;

writeln (a div 10 - a mod 10) ;

end.