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

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

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

Question

Информатика

Идуся

27 июля, 02:29

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

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

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

+3

Ответы (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.