Ребята, помогите, очень очень срочно нужно))Дано двузначное число. Найти разность между...

Question

Ребята, помогите, очень очень срочно нужно))
Дано двузначное число. Найти разность между первой и второй его цифрой, используя функции Mod и Div.

Answer 1

var x: integer;
begin
write('Введите число: ');
readln(x);
write(x div 10 - x mod 10); 
end. 

Comments

спасибо большое) сейчас идет))

---

А можешь еще пошаговый словесный алгоритм написать?? А то, что-то я запуталась((

---

write/writeln- вывод сообщения на экран, read/readln - ввод с клавиатуры, функция div - это целочисленная разновидность операции деления, то есть, результат такого деления будет целым числом. Например, 12 / 10 = 1.2, тогда как 12 div 10 = 1, другими словами, это деление без остатка. Функция mod - делает всё наоборот, берёт только остаток, 12 mod 10 = 2. Так вот и выходит разность цифр двухзначного числа:-)

---

спасибо огромное=)

---

В программе MS Word оставьте словесное описание решения задачи №1 (линейный алгоритм), пошаговый словесный алгоритм и блок-схему. Сохраните файл под именем Алгоритм1_ФИ студента.
А вот сама задача: Дано трехзначное число. Найти разность между первой и третьей его цифрой, используя функции Mod и Div.
Я не знаю, как правильно и что написать вообще..

---

Сейчас, к сожалению, не могу составить блок-схему, но суть задачи та же, чтобы применить описанный мною код выше для задачи с трёхзначным числом, достаточно поменять обе 10-ки на 100. Удачи :-)

---

Ну хорошо, спасибо большое)) А по ранее добавленной задачи, сможете помочь составить блок-схему? завтра, например)

---

Попробуйте - http://yadi.sk/d/U7B0Xk4zDFmaa

---

Спасибо огромное вам за помощь))

Answer 2

Var a,b:real;
begin
read(b);
a:=b div 10;
b:=b mod 10;
write(a-b);
end.

Comments

Не идет что-то:(

---

сейчас исправлю

---

вместо real поставь integer