Предмет: Информатика, автор: tanyamom

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


1000FORMSofFEAR: Язык?
tanyamom: паскаль

Ответы

Автор ответа: Veter0k
1
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.

tanyamom: А через оператор while?
Похожие вопросы