Заполнить массив натуральными числами

@jiutbuhehko · Регистрация: 17.09.2013

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

Заполнить массив различными натуральными числами, квадраты которых заканчиваются данными числами. Например, 62 = 36,252 = 625.

@Jener · 14.12.2013, 17:35

Не совсем уверен, но сделал бы так :

Pascal

uses
  crt;
Const
  Nmax = 100;
Type
  TArr = array[1..Nmax] of integer;
var
  a : TArr;
 
  i, j, k : integer;
begin
  clrscr;
  j := 1; k := 10;
  for i := 1 to 10000 do begin
    if i = (i*i) mod k then begin 
      a[j] := i;
      inc(j);
    end;  
    if i div k <> 0 then k := k * 10;
  end;  
  for i := 1 to j-1 do write(a[i]:7);
  readln;
end.

@jiutbuhehko · 14.12.2013, 18:17 **[ТС]**

Сообщение от Торович

Не совсем уверен, но сделал бы так :

Pascal

uses
  crt;
Const
  Nmax = 100;
Type
  TArr = array[1..Nmax] of integer;
var
  a : TArr;
 
  i, j, k : integer;
begin
  clrscr;
  j := 1; k := 10;
  for i := 1 to 10000 do begin
    if i = (i*i) mod k then begin 
      a[j] := i;
      inc(j);
    end;  
    if i div k <> 0 then k := k * 10;
  end;  
  for i := 1 to j-1 do write(a[i]:7);
  readln;
end.

Спасибо, все работает

@jiutbuhehko 0 / 0 / 2 Регистрация: 17.09.2013 Сообщений: 56
		1
	Заполнить массив натуральными числами 14.12.2013, 14:45. Показов 2085. Ответов 2 Метки нет (Все метки) Заполнить массив различными натуральными числами, квадраты которых заканчиваются данными числами. Например, 62 = 36,252 = 625. 0

	14.12.2013, 18:17

Опции темы

Заполнить массив натуральными числами

Решение