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

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

Задать свой вопрос
2 ответа
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.
Задачка 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.

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт