[Подсказка] решите задачу(загадка)

[xamik :3]

: Пятью пять - двадцать пять!
(Время: 1 сек. Память: 16 Мб Сложность: 8%)
Вася и Петя учатся в школе в одном классе. Недавно Петя поведал Васе о хитром способе возведения в квадрат натуральных чисел, оканчивающихся на цифру 5. Теперь Вася может с легкостью возводить в квадрат двузначные (и даже некоторые трехзначные) числа, оканчивающиеся на 5. Способ заключается в следующем: для возведения в квадрат числа, оканчивающегося на 5 достаточно умножить число, полученное из исходного вычеркиванием последней пятерки на следующее по порядку число, затем остается лишь приписать «25» к получившемуся результату справа. Например, для того, чтобы возвести число 125 в квадрат достаточно 12 умножить на 13 и приписать 25, т.е. приписывая к числу 12*13=156 число 25, получаем результат 15625, т.е. 1252=15625. Напишите программу, возводящую число, оканчивающееся на 5, в квадрат для того, чтобы Вася смог проверить свои навыки.

Входные данные

В единственной строке входного файла INPUT.TXT записано одно натуральное число А, оканчивающееся на цифру 5, не превышающее 4*105.

Выходные данные

В выходной файл OUTPUT.TXT выведите одно натуральное число - A2 без лидирующих нулей.

помагите)

[#Nike]

Паскаль? С++? С#? Delphi?

[xamik :3]

это паскаль,урок программирования.что то не получаетя сделать.

[BLACK_DEAD]

http://zhyk.ru/forum/forumdisplay.php?f=99

[warl0ck]

Цитата: Сообщение от :xamlo: Недавно Петя поведал Васе о хитром способе возведения в квадрат натуральных чисел

[xamik :3]

Цитата: Сообщение от warl0ck

вот такая странная задача

[pia3333(4)]

Цитата: Сообщение от :xamlo: Недавно Петя поведал Васе о хитром способе возведения в квадрат натуральных чисел

Число умножить на него же
Хитро

[крайслер]

Цитата: Сообщение от pia3333(4) Число умножить на него же Хитро

Суть то не в этом кроется....

[xamik :3]

да задача была сложной

[#Nike]

program Float;
var
  Src, Rsl: Integer;
begin
  Write('Введите число: ');
  ReadLN(Src);
  if (Src mod 5 = 0) And (Src div 2 <> 0)
    Then 
      begin
        Rsl := (Src div 10) * ((Src div 10) + 1);
        Write(Rsl, '25');
      end
    Else 
      begin
        Rsl := Src * Src;
        Write(Rsl);
      end
end.

Это основное, без сохранения в файл

[xamik :3]

Цитата: Сообщение от #Nike program Float; var Src, Rsl: Integer; begin Write('Введите число: '); ReadLN(Src); if (Src mod 5 = 0) And (Src div 2 <> 0) Then begin Rsl := (Src div 10) * ((Src div 10) + 1); Write(Rsl, '25'); end Else begin Rsl := Src * Src; Write(Rsl); end end. Это основное, без сохранения в файл

ОО хоть на этом спасибо

Добавлено через 11 минут
program pyat_na_pyat;
var a,b:longint;
begin
assign(input,'INPUT.TXT');
reset(input);
assign(output,'OUTPUT.TXT');
rewrite(output);
read(angel);
b:=(a div 10)*(a div 10+1);
if b=0 then writeln('25') else writeln(b,'25');

вот так сделал все спасибо всем)

Добавлено через 53 минуты
#Nike, и еще тип не тот, нужно longint использовать (в типе integer 4255*4255 превышает диапозон)
и еще там не предусмотренно то, что в вывобе должно быть число без лидирующтх нулей

[#Nike]

Цитата: Сообщение от :xamlo: if b=0 then writeln('25') else writeln(b,'25');

Что за брэд?

[xamik :3]

Цитата: Сообщение от #Nike Что за брэд?

все правельно!

[MiXa1LL76]

Цитата: Сообщение от :xamlo: все правельно!

в паскале не такая кодировка... там без скобок не выйдет..

[xamik :3]

Цитата: Сообщение от MiXa1LL76 в паскале не такая кодировка... там без скобок не выйдет..

я уже все сделал и отправил ошибок не выявили!

pascalABC