Предмет: Информатика,
автор: Аноним
Написать программу, заполняющую массив из 20 целочисленных
элементов случайными числами в диапазоне от 0 до 50 включительно
([0;50]) и подсчитывающую произведение чисел, кратных 2 и 3
одновременно. (ЯП- Турбо Паскаль)
Ответы
Автор ответа:
1
Ответ:
Рада была помочь♡
Удачи тебе!)
Объяснение:
var k,sum:integer;
begin
sum:=0;
for k:=0 to 50 do
if(k mod 3 =0) then sum:=sum+k;
writeln(sum);
end.
Вроде так
Похожие вопросы
Предмет: Математика,
автор: natakravcova77
Предмет: Русский язык,
автор: lbvfhbr220180
Предмет: Литература,
автор: Ostmn
Предмет: Информатика,
автор: mssurok