Даны двузначное четырехзначное число. Найти произведение количества десятков двузначного...

Question

Даны двузначное четырехзначное число. Найти произведение количества десятков двузначного числа и сотен четырехзначного числа.
Даны пятизначное число должно быть меньше 32000 и четырехзначное числа. Вычислить квадратный корень суммы сотен этих чисел.

Comments

Алгоритм? Программу?

---

программу

---

паскаль

---

любой версии7

---

да

Answer 1

// PascalABC.Net
var
  n2,n4,a,b:integer;
begin
  Write('Введите натуральное двухзначное число: '); Read(n2);
  Write('Введите натуральное четырехзначное число: '); Read(n4);
  a:=n2 div 10; b:=(n4 mod 100) div 10;
  Writeln(a*b)
end.

// PascalABC.Net
var
  n5,n4,a,b:integer;
begin
  Write('Введите натуральное пятизначное число: '); Read(n5);
  Write('Введите натуральное четырехзначное число: '); Read(n4);
  a:=(n5 mod 1000) div 100; b:=(n4 mod 1000) div 100;
  Writeln(sqrt(a+b))
end.

Comments

Большое спасибо!)

---

пожалуйста