Регистрация
SaharaYo
09.07.2020 11:01
Информатика
Есть ответ 👍

Паскаль. дан массив к(20) целых чисел заданных с клавиатуры. каких элементов в массиве больше, значения которых кратны 4 или кратны 5?

104
172
Посмотреть ответы 2

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

12345687654321ytrye
12345687654321ytrye
4,5(68 оценок)

var k: array [1..20] of integer;

i: integer;

k4,k5: integer;

begin

k4: =0;

k5: =0;

for i: =1 to 20 do begin

write('k[',i,'] = ');

readln(k[i]);

if (k[i] mod 4 = 0) and (k[i] < > 0) then inc(k4)

else if (k[i] mod 5 = 0) and (k[i] < > 0) then inc(k5);

end;

if k4> k5 then writeln('элементов, кратных 4 больше, чем кратных 5')

else if k5> k4 then writeln('элементов, кратных 5 больше, чем кратных 4')

else if k4=k5 then writeln('элементов, кратных 4 одинаковое количество, как и кратных 5');

end.

dreytes
dreytes
4,7(92 оценок)
35 символов -> 35 байт = 35*8 бит = 280 бит

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