1. Информатика
  2. Напишите программу, позволяющую

Напишите программу, позволяющую ввести 9 элементов, кратных 3. (через if). паскаль. массив.

mr1assira mr1assira    3   28.09.2019 20:50    1

Ответы
Натаван11082004 Натаван11082004  09.10.2020 01:18

var arr: array [1..9] of integer;

i, num: integer;

begin

i := 1;

while (i <= 9) do

 begin

   readln(num);

   if (num mod 3 = 0) then

     begin

       arr[i] := num;

       i := i + 1;

     end;

 end;

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
tryx1 tryx1  17.06.2019 15:50
Паскаль. составьте программу, выводящую на экран таблицу умножения чисел от 1 до 9....
Nastiy1987 Nastiy1987  31.03.2021 14:50
Щоб створити структуру таблиці, треба виконати команду? а)створіть б)відкрити в)конструктор г)нова таблиця​...
Darina6940 Darina6940  31.03.2021 14:51
с криптографией! 1.Перевод байта в 16 форме в 2 форму и соответствующий многочлен в GF(256). 2.Сложение двух байтов. 3.Умножение по модулю. 4.Умножение на х, применение...
ivanchistyakov ivanchistyakov  31.03.2021 14:52
Решите уравнение в паскаль y=x²+2​...
valyakravets valyakravets  13.09.2019 19:10
Надо будет написать в программе завтра в чтоб 1 ед. не поставили , плачу если не правильно отправлю жалобу) потому что надо ! p.s: начинаться должно programa что-то...
hdhdhdhehd hdhdhdhehd  13.09.2019 19:10
Сдано, формулами и решением. 1. в одной из кодировок unicode каждый символ кодируется 16 битами. определите размер следующего предложения в данной кодировке. семь...
LinaPozniak08 LinaPozniak08  13.09.2019 19:10
По каналу связи сообщения, содержащие только семь букв: а, б, в, г, д, е и ж. для передачи используется двоичный код, удовлетворяющий условию фано. для буквы а используется...
мик150 мик150  13.09.2019 19:10
For i: =1 to 6 do begin i: =i+1; ss: =ss+1.0; end; сколько раз выполнятся операторы в теле цикла? и как это проверить?...
Chevalier26 Chevalier26  13.09.2019 19:10
Скорость чтения учащихся составляет приблизительно 250 символов в минуту приняв мощность. какой обьем информации в кб получит учащийся если он будет непрерывно читать...
камкозавра камкозавра  13.09.2019 19:10
Компьютер вани имеет следующие характеристики: -тактовая частота- 1,7 ггц, -объем оперативной памяти- 256мбайт ваня хочет приобрести диски с компьютерными играми,...

Популярные вопросы