Задать вопрос
7 июля, 23:15

Напишите программу вычисления суммы чисел кратных 5 из натурального ряда чисел от 1 до n, и произведение чисел кратных к 3 (for)

+5
Ответы (1)
  1. 8 июля, 00:03
    0
    var

    i, s, p : integer;

    begin

    write ('n=') ;

    readln (n) ;

    s:=0;

    p:=1;

    for i:=1 to n do

    begin

    if i mod 5=0 then s:=s+i;

    if i mod 3=0 then p:=p*i

    end;

    Writeln ('s=', s, ' p=', p)

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Напишите программу вычисления суммы чисел кратных 5 из натурального ряда чисел от 1 до n, и произведение чисел кратных к 3 (for) ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы