Регистрация
Madinauakhitova
06.02.2020 06:11
Информатика
Есть ответ 👍

Расписать таблицу дизъюнкция двух элементов

145
230
Посмотреть ответы 1

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

Няшка1097
Няшка1097
4,5(29 оценок)

var a: array[1..10] of integer;

i,k: integer;

begin

k: =0;

for i: =1 to 10 do

if (a[i]> 0) and (a[i] mod 3=0) then k: =k+1;

writeln ('k=',k);

readln;

end.

 

так)

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