Написать программу, заполняющую массив из 20 целочисленных - вопрос №2016541871 от mashasumashedsoziogw 23.10.2021 09:21

Question

Информатика: Написать программу, заполняющую массив из 20 целочисленных элементов случайными числами в диапазоне от 0 до 50 включительно ([0;50]) и подсчитывающую произведение чисел, кратных 2 и 3 одновременно. (ЯП- Турбо Паскаль)

mashasumashedsoziogw · Answer

Рада была Удачи тебе!)Объяснение: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. Вроде так...