4 года назад

Срочно. Решите плиз . Паскаль! Цикл

Знания

Информатика

1 ответ:

Titan Casino [35]4 года назад

0 0

<h3>PascalABC.NET 3.4.2, сборка 1881 от 19.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>

begin

var (k, p, n) := (0, int64(1), ReadInteger('n ='));

var t: integer;

for var i := 1 to n do

begin

Read(t);

if t mod 3 = 0 then

begin

p *= t;

Inc(k)

end

end;

Write('Произведение ', k, ' элементов равно ', p)

end.

<h2>Пример</h2><h3>n = 7</h3><h3>53 -28 36 174 -600 45 -93</h3><h3>Произведение 5 элементов равно 15728904000</h3>

Читайте также

Что из перечисленного является правильным адресом ячейки электронной таблицы? 1) 7A 2) BC 3) F17 4) 25

andreks1paris [8]

Правильный ответ 3) F17

0 0

4 года назад

В электронный таблице формула =D2+$E3, записанную и ячейке G2, скопировали в ячейку G4. Какой вид приобретёт формула?

Мария Мо

=D4+$E5 так как абсолютная ссылка только на столбец E, а к цифрам прибавляем 2 :)

0 0

4 года назад

С клавиатуры введены три слова. Вывести их на экран упорядочив по возрастанию длины. Если слова имеют одинаковою длину, то отобр

Илья 12 [2.4K]

Это сочение писать?или как надо писать ?

0 0

3 года назад

B&(A V B) постройте таблицу истинности

Константин Аронов

Такое же задавали, только в эл. виде делать)

0 0

4 года назад

Дан целочисленный двумерный массив, размерности n x m. Вывести его элементы, индексы которых являются степенями двойки

Nadezhda77

Const nx = 20;mx = 20;var x: array[1..nx, 1..mx] of integer; i, j, n,m,q,r: integer;k:boolean; b: array[0..nx] of integer;beginWriteln('Введите число строк n ');Read(n);Writeln('Введите число столбцов m ');Read(m);b[0]:=1;if n >= m thenfor i := 1 to n do beginb[i]:=b[i-1]*2;q:=n;endelsefor i := 1 to m do beginb[i]:=b[i-1]*2;q:=m;end;write(b:3); Randomize; Writeln; Writeln('Исходный массив'); for i := 1 to n do begin for j := 1 to m do begin x[i, j]:=Random(10); Write(x[i, j]:4); end; Writeln; end; Writeln; Writeln; for i := 1 to n do begin for j := 1 to m do begin for r:=0 to q do if (i = b[r])or (j = b[r]) then k:= true; if k = true then Write(x[i, j]:4) else Write(' '); k:=false; end; Writeln; end; end.

0 0

4 года назад