profile
Опубликовано 5 лет назад по предмету Информатика от elvirashitova2014

Вводятся два целых числа A и B. Вычислить произведение всех целых чисел от A до B, кратных 5.

  1. Ответ
    Ответ дан raf1O5

    program raf105;

    var a,b,pro,i:integer;

    begin

    write('A = ');

    readln(a);

    write('B = ');

    readln(b);

    pro:=1;

    for i:=a to b do

     if (i mod 5)=0 then

       pro*= i;

    writeln('Вывод: ',pro);

    end.

    Язык PascalABC