0 / 0 / 0
Регистрация: 29.10.2009
Сообщений: 9
1

Текст проги

03.11.2009, 13:21. Показов 629. Ответов 1
Метки нет (Все метки)

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

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Program x4;
uses crt;
 var a,i:integer;
  begin
   clrscr;
    for i:=100 to 999 do
     begin
      a:=sqr(i);
      a:=(a mod 1000);
       if a=i then
        begin
        write(i);
        readln;
        end
         else
     end;
  end.
Выдает неправильные числа.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
03.11.2009, 13:21
Ответы с готовыми решениями:

Работа с массивами. Нужно подправить текст проги.
помогите, пожалуйста. program Shwarz_Kurs; const n=50; {Число строк и столбцов} type ...

Проги
Ребята помогите решить две задачки я уже мозги сломал, вот условия задач: 1. Даны натуральное n,...

Не компелирует проги
Слушайте други мои, как вы думаете что за фигня у меня с паскалем: короче тема такая я пушу себе...

Программисты объясните проги
Нужно для отчета!!! Пожалуйста...... Заранее спосибо! (1) program D__Z; uses crt; var ...

1
2921 / 842 / 324
Регистрация: 30.04.2009
Сообщений: 2,633
03.11.2009, 13:25 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Program x4;
uses crt;
var a,i:longint;
begin
clrscr;
for i:=100 to 999 do
begin
a:=sqr(i);
a:=(a mod 1000);
if a=i then
begin
write(i,' ',sqr(i));
readln;
end
else
end;
end.
Правильно вроде все выдает если тип поменять на longint
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
03.11.2009, 13:25

Две проги с масивами
1) Вичислить суму положительных элементов и заменить ею елементами равными = 0 2)Создать масив " У...

Напишите 2 проги с циклами
82. Дано действительное число x. Вычислить (x-2)(x-4)(x-8)... (x-64) -------------------------....

Оптимизация проги
Всем привет, написал прогу, скорее всего она абсолютно не оптимальна ни по времени, ни по ресурсам,...

Конец проги
И так снова прошу у вас помощи нужно сделать так чтобы после выполнения программы в ответе...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.