Комментарии к программе

@Rakot568 · Регистрация: 11.04.2013

Author24 — интернет-сервис помощи студентам

Есть готовая программа к задаче, необходимо написать комментарии к каждому действию этой задачи.
Задача:

Дано натуральное число n. Среди чисел от 1 до n найти все такие, запись которых совпадает с последними цифрами записи их квадрата.

Программа:

Pascal

uses
  crt;
var
  m,n,x,d: integer;
begin
 clrscr;
 writeln('Введите число n');
 readln(n);  
 m:=1;
 d:=10;
 for x:=m to n do 
   begin
     while d<=x do  
       d:=d*10;
     if x*x mod d=x then    
       writeln('Число- ',x,' ', 'квадрат - ', sqr(x));
   end;
readkey;
end.

@Rakot568 · 02.05.2013, 17:47 **[ТС]**

Пожалуйста, помогите, кто может.

@StrelokCj · 02.05.2013, 23:51

Pascal

uses
  crt;
var
  m,n,x,d: integer;
begin
 clrscr;
 writeln('Введите число n');
 readln(n); 
 m:=1;  {задаем начальный параметр интервала 1..n}
 d:=10; {задаем начальное значение переменной d}
 for x:=m to n do {организуем цикл от числа m до n}
   begin
     while d<=x do  {данный цикл будет выполнятся, если и пока d<=x}
       d:=d*10;
     if x*x mod d=x then    {проверяем условие: если остаток от деления квадрата числа на d равен числу x}
       writeln('Число- ',x,' ', 'квадрат - ', sqr(x)); {то выводим на экран число и его квадрат}
   end;
readkey;
end.

@Rakot568 15 / 15 / 4 Регистрация: 11.04.2013 Сообщений: 181
	02.05.2013, 17:47 [ТС]	2
	Пожалуйста, помогите, кто может. 0

	02.05.2013, 23:51