Регистрация
anastasiab200
10.11.2022 21:45
Информатика
Есть ответ 👍

Abc pascal.дан одномерный массив с(n). сформировать новый массив в, состоящий из элементов массива с, кратных 7.выведите на печать образованный массив и число его элементов.

207
254
Посмотреть ответы 2

Ответы на вопрос:

gonelep0bt6w
gonelep0bt6w
4,4(66 оценок)

var c,b: array [1..1000] of integer;

i,n,k: integer;

begin

k: =1;

readln(n);

for i: =1 to n do

begin

c[i]: =random(15);

write (c[i]: 3);

if c[i] mod 7 = 0 then

begin

b[k]: =c[i];

k: =k+1

end

end;

writeln;

for i: =1 to k-1 do write (b[i]: 3);

writeln;

writeln (k-1)

end.

malinka149
malinka149
4,7(53 оценок)

5. 13^10=15^8

148^10=224^8

2018^10=3742^8

6. 13^10=d^16

148^10=94^16

2018^10=7e2^16

7. 318^10=100111110^2

318^10=476^8

318^10=13e^16

^- система

Популярно: Информатика