Задать вопрос
30 декабря, 18:52

Посчитать количество чисел, принадлежащих промежутку [a, b] и сумму чисел, стоящих на местах, кратных 3

+4
Ответы (1)
  1. 30 декабря, 19:42
    0
    Program Pr1;

    uses crt;

    var a, b, c:integer;

    Begin

    clrscr;

    c:=0;

    writeln ('Vvedite a i b') ;

    readln (a, b) ;

    while a<=b do begin

    if a mod 3=0 then c:=c+1;

    a:=a+1;

    end;

    writeln (c) ;

    end.
Знаете ответ на вопрос?
Не уверены в ответе?
Правильный ответ на вопрос 👍 «Посчитать количество чисел, принадлежащих промежутку [a, b] и сумму чисел, стоящих на местах, кратных 3 ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы