Задать вопрос Регистрация
Помочь другим

  • Найти сумму всех трехзначных чисел кратных К

Ответы 2

  • i,k,s:integer;

    read(k);

    s=0

    for i=100 to 999 do begin

    if i mod k = 0 then

    s=s+i;

    end;

    write(s);

    end.

  • var i,K,S:real;

    begin

    write('vvedite K = ');

    readln(K);

    S=0

    for i=100 to 999 do

    begin

    if i mod K = 0 then

    S=S+i;

    end;

    write('S = ',S);

    readln;

    end.

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years