|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
25.05.2011, 07:29 | #1 |
Пользователь
Регистрация: 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. |
25.05.2011, 08:47 | #2 |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
Название темы нарушает правила форума.
Код программы не оформлен тегами. ЗАКРЫТО. МОДЕРАТОР и ещё, кросспост (создание одинаковых тем - так же запрещено правилами форума!! |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
исправте код( | 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 |