Помогите пожалуйста этим. паскаль. вывести на экран квадрат средней цифры пятизначного числа.
Помогите пожалуйста этим.
паскаль.
вывести на экран квадрат средней цифры пятизначного числа.
Гость
Ответ(ы) на вопрос:
Гость var
a,b,i : integer;
begin
readln (a);
for i := 1 to 2 do
a := a div 10;
b := sqr(a mod 10);
writeln (b);
end.
Гостьvar a: integer;
begin
readln (a);
writeln (sqr((a mod 1000) div 100));
end.
Не нашли ответ?
Похожие вопросы