profile
Опубликовано 6 лет назад по предмету Информатика от старшик16

Найти сумму чисел, кратных трем в диапазоне от 0 до 50

  1. Ответ
    Ответ дан mirrr1
    var k,sum:integer;
    begin
    sum:=0;
    for k:=0 to 50 do
    if(k mod 3 =0) then sum:=sum+k;
    writeln(sum);
    end.
Самые новые вопросы