Даны двузначное четырехзначное число. Найти произведение количества десятков двузначного числа и сотен четырехзначного числа. Даны пятизначное число должно быть меньше 32000 и четырехзначное числа. Вычислить квадратный корень с...
Даны двузначное четырехзначное число. Найти произведение количества десятков двузначного числа и сотен четырехзначного числа.
Даны пятизначное число должно быть меньше 32000 и четырехзначное числа. Вычислить квадратный корень суммы сотен этих чисел.
Гость
Ответ(ы) на вопрос:
Гость// 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.
Не нашли ответ?
Похожие вопросы