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

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

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 10.12.2010, 18:18   #21
mrRastom
Пользователь
 
Регистрация: 10.12.2010
Сообщений: 16
По умолчанию

Код:
Program Chislo15;
uses crt;
const n=9;
var a,b:array[1..n] of integer; i,j:integer;
begin
clrscr;
for i:=1 to n do   (Вводим первую цифру)
  a[i]:=i;
for j:=1 to n do   (Вводим вторую цифру)
  b[j]:=j;
for i:=1 to n do    (Создаем все двухзначные числа без нолей
  for j:=1 to n do   т.к. 0^2+a^2 никогда не кратны 15)
    begin
      if (sqr(a[i])+sqr(b[j])) mod 15=0 then  (Выбираем из них кратные 15.Это 36,39,63,93.
 write(a[i]*10+b[j],' ');                      (Выводим их на экран)   
    end;
  readln
end.
А можно, если не затруднит, зарисовать блок-схему?
Ну или на словах можно обьяснить. Буду очень признателен.

P.S. сорри за некропост

Последний раз редактировалось mrRastom; 10.12.2010 в 18:23.
mrRastom вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Найти сумму ряда 11111 Помощь студентам 14 01.11.2010 19:55
Сумма ряда Sova123456 Помощь студентам 8 11.06.2010 17:10
Разработка программ с использованием функций. Табулирование функции одного и двух переменных кася Паскаль, Turbo Pascal, PascalABC.NET 5 07.05.2008 20:11
табулирование функции tonic Microsoft Office Excel 1 04.01.2008 00:38
Найти сумму ряда с точностью Е=10^-3 Добрый Кот Паскаль, Turbo Pascal, PascalABC.NET 2 12.12.2007 12:04