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

Сделйте блок схему программы через for, пожалуйста!

Целое число n вводится с клавиатуры. в диапазоне [10;-10] найти сумму и колоичество чисел, кратных n.

  1. Ответ
    Ответ дан ldv02
    var n,k,sum,i:integer;
    begin
    readln (n);
    if (n<10)and(n>-10) then
    for i:=1 to 10 do begin
    if n mod i=0 then
    sum:=sum+i;
    k:=k+1;
    end;
    writeln(sum, ' ', k);
    end.

    1. Ответ
      Ответ дан ldv02
      Стой, я сейчас изменю немного
    2. Ответ
      Ответ дан ldv02
      все
    3. Ответ
      Ответ дан xXLeOXx
      там я подправил в конце, а так все верно
Самые новые вопросы