Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

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

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

Здесь нужно купить рекламу за 25 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru

Ответ
 
Опции темы
Старый 08.11.2019, 12:09   #1
tara-ta-ta
 
Регистрация: 25.10.2019
Сообщений: 8
По умолчанию Создать матрицу А[20, 2], заполнив первый столбец случайными числами из диапазона от 99 до 999, а во второй столбец записать 1, если число простое, 0 - если не простое

Создать матрицу А[20, 2], заполнив первый столбец случайными числами из диапазона от 99 до 999, а во второй столбец записать 1, если число простое, 0 - если не простое
tara-ta-ta вне форума   Ответить с цитированием
Старый 10.11.2019, 16:23   #2
newerow1989
Я самый любопытный
Участник клуба
 
Аватар для newerow1989
 
Регистрация: 24.07.2012
Сообщений: 1,776
По умолчанию

Код:
function Simple(n:integer):boolean;
var i:integer;
begin
   Result:=false;
   If n<2 then
      Exit;
   For i:=2 to Trunc(Sqrt(n)) do
      If n mod i=0 then
         Exit;
   Result:=true;
end;

var a:array[1..20,1..2] of integer;
    i:integer;
begin
   Randomize;
   For i:=1 to 20 do
   begin
      a[i,1]:=99+Random(901);
      Write(a[i,1]:3,'  ');
      If Simple(a[i,1]) then
         a[i,2]:=1 else
         a[i,2]:=0;
      Writeln(a[i,2]:3);
   end;
   Writeln;
   Readln;
end.
С запрограммированным приветом, Неверов Евгений!
Сайт: http://newerow1989.narod.ru
[Паскаль] [Delphi]
newerow1989 вне форума   Ответить с цитированием
Старый 11.11.2019, 21:05   #3
zvygin1964
Участник клуба
 
Аватар для zvygin1964
 
Регистрация: 19.06.2013
Сообщений: 1,979
По умолчанию

+ к репутации.
Репутация: полный "0"
zvygin1964 вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
[Delphi] в массиве поменять порядок следования столбцов на обратный (первый столбец становится последним, второй предпоследним и т.д.). ALINA787 Помощь студентам 4 28.10.2019 17:30
Массив а[1..8], заполненный случайными числами [-10, 10]. Определить, Если массив не содержит заданное число, то вставить число schibeki Паскаль, Turbo Pascal, PascalABC.NET 5 30.01.2014 21:10
Visual Basic. Дан двумерный массив размером n*m, заполненный случайными числами. Определить, есть ли в данном массиве столбец... Nember Помощь студентам 0 21.12.2013 21:56
Двумерный массив А. Если заданное число больше первой цифры столбца, то этот столбец удаляется. Комментировать листинг на Паскаль Altana Помощь студентам 0 29.05.2012 11:30
Сформировать матрицу A - первый столбец которой равен последнему столбцу исходной матрицы Вика М. Помощь студентам 3 23.12.2008 05:51


10:04.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.