Написать программу, заполняющую массив из 20 целочисленных элементов случайными числами в диапазоне от 0 до 50 включительно ([0;50]) и подсчитывающую произведение чисел, кратных 2 и 3 одновременно. (ЯП- Турбо Паскаль)
Ответы
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
У логические выражения Очень надо
Автор: hamelleon43
По заданной сложной логической схеме постройте логическое выражение и найдите его значение:
Автор: Михайловна-Гусева350
Установи соответствие с видом информации: мягкий —
Автор: Евгений1286
7. Чем отличается таблица и текстовом процессоре от таблицы и электронной таблице?
Автор: valerii-borisovich550
ИНФОРМАТИКА 6 КЛАСС Итоговая Контрольная работа задания в прикреплённом файл или на фото выше
Автор: Абдулганиева Сергей
Лупа кұралы не ушин кажет
Автор: zanthia94
Определите типы исполнителей в предложенных ситуациях и будьте готовы обосновать свой ответ
Автор: Михайловна-Гусева350
Рада была
Удачи тебе!)
Объяснение:
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.
Вроде так