Информатика на пять О нас
 Добавить в избранное
5byte.ru
 Теория
 8 класс
 9 класс
 10 класс
 11 класс
Задания
 8 класс
 9 класс
 10 класс
 11 класс
Книги
Тесты
ЕГЭ
Turbo Pascal 7
 Описание
 Задачи
HTML
Рефераты

Задача 56.

Ввести число, записать образующие его цифры в обратном порядке и найти квадрат полученного числа. (Например, исходное число -81; обратное - 18; его квадрат - 324).

program р36;
  uses crt;
  var n,k :integer;
      L1,L :string;
      i:Byte;
begin
  clrscr;
  writeln('n =');readln(n);
  str(n,L);l1:= ' ';
  for i:=length(L) downto 1 do
  L1:=L1+copy(L,i,1);
  writeln('o6pam.чucлo=',L1);val(L1,n,k);
  if k=o then
  writeln('квад'=),sqr(n);
  readln;
end.





 У Вас есть материал пишите нам
 
    Copyright © 2008    
  Top.Mail.Ru