Регистрация
markvT
01.06.2021 21:53
Информатика
Есть ответ 👍

Дано целое трехзначное число x. Найти число, полученное при прочтении этого числа справа налево. Полученный " перевёртыш" возвести в квадрат и вывести результат на экран. Значение х ввести с клавиатуры-9 б.​

104
104
Посмотреть ответы 2

Ответы на вопрос:

yunis2007
yunis2007
4,5(4 оценок)

Объяснение:

program pr1;

var x:Integer;

n:Integer;//new number

begin

write('X=');

readln(X);

if x mod 10 <> 0 then

begin

n:=(x mod 10)*100+(x mod 100 - x mod 10)*10+x div 100;

n:=n*n;//или sqr(n)

writeln(n);

end else

begin

writeln('Число не должно начинаться с 0');

end;

readln;//для консоли в Delphi

end.

Кама29102007
Кама29102007
4,4(67 оценок)

ответ:бесплатная программа

Объяснение:

Популярно: Информатика