Найдите сумму всех чисел от 1 до k кратных 3 - вопрос №875181113 от levonaleqsanya 24.05.2023 13:07

Question

Информатика: Найдите сумму всех чисел от 1 до k кратных 3

levonaleqsanya · Answer

Program HelloWorld;var i,s,k:integer;begin    k:=12;    s:=0;    for i:=1 to k do begin    if(i mod 3=0) then s:=s+i;    end;    writeln(s);end....