Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 25.05.2011, 07:29   #1
92Edik
Пользователь
 
Регистрация: 22.05.2011
Сообщений: 17
Радость исправте

Вот условие:
Квадрат некоторых трехзначных чисел оканчиваются тремя цифрами, которые как раз и составление исходные числа.Написать программу поиска таких чисел

var a, b: array [1..1000] of longint;
c, i, n, j: integer;
begin
for i:= 1 to 1000 do
begin
a[i]:= random(900)+ 100;
end;
writeln;
for i:= 1 to 1000 do
begin
b[i]:= sqr(a[i]);
end;
for i:= 1 to 1000 do
begin
b[i]:= b[i] mod 1000;
if b[i] = a[i] then
writeln (a[i]);
end;
readln;
end.
92Edik вне форума
Старый 25.05.2011, 08:47   #2
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

Название темы нарушает правила форума.

Код программы не оформлен тегами.

ЗАКРЫТО.



МОДЕРАТОР


и ещё, кросспост (создание одинаковых тем - так же запрещено правилами форума!!
Serge_Bliznykov вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
исправте код( basav1k Помощь студентам 1 20.05.2010 12:16
Исправте ошибку dimon305 Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM 1 19.05.2010 19:30
Исправте ошибку dimon305 Помощь студентам 0 18.05.2010 21:23