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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 30.11.2016, 19:55   #1
shketeg
Пользователь
 
Регистрация: 28.11.2016
Сообщений: 10
По умолчанию Составить таблицу корней квадратных для чисел от 10 до 50 с шагом 5.Буду очень благодарен.

Составить таблицу корней квадратных для чисел от 10 до 50 с шагом 5.Буду очень благодарен.

Последний раз редактировалось Вадим Мошев; 03.12.2016 в 16:13.
shketeg вне форума Ответить с цитированием
Старый 30.11.2016, 21:02   #2
nobody_nohead
Пользователь
 
Регистрация: 30.11.2016
Сообщений: 22
По умолчанию

Попробуй мое корявое решение)
Код:
program test;
type massive = array[1..10] of integer;
var i, j, s: integer; table: massive;
begin
s:= 1
for i:= 10 to 50 do
    begin
    if (i mod 5) = 0 then
      begin
      table[s]:= i*i;
      s:= s+1;
      end;
     end;        
readln;
end.

Последний раз редактировалось nobody_nohead; 30.11.2016 в 23:28.
nobody_nohead вне форума Ответить с цитированием
Старый 03.12.2016, 14:38   #3
shketeg
Пользователь
 
Регистрация: 28.11.2016
Сообщений: 10
По умолчанию

Спасибо
shketeg вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Задача turbo pascal на тему: файлы с произвольным доступом в Pascal ExCiTeC Паскаль, Turbo Pascal, PascalABC.NET 0 28.01.2013 20:36
Задача на if на turbo pascal 7.0 Cruzel Помощь студентам 1 05.11.2011 19:49
Turbo Pascal. Задача. Dionix Общие вопросы Delphi 11 06.07.2010 17:08
Turbo Pascal (задача) pergeot Помощь студентам 4 13.01.2010 07:25
Pascal; Задача с циклом (есть наработки...) -SG- Помощь студентам 5 09.10.2009 18:27