Задать вопрос
12 октября, 15:29

Найти произведение всех чисел от 1 до 100 делещехся на 7 но не делещехся на 3

с помощью цикла while или for

+5
Ответы (1)
  1. 12 октября, 18:28
    0
    Var

    P:real;

    A:byte;

    Begin

    P:=1;

    For A: = 1 to 100 do

    if (A mod 7 = 0) and (A mod 3 0) then P:=P*A;

    WriteLn ('P = ', P) ;

    End.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Найти произведение всех чисел от 1 до 100 делещехся на 7 но не делещехся на 3 с помощью цикла while или for ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы