Информатика, опубликовано 2018-08-22 22:35:23 by Гость

Подсчитать количество и сумму чисел кратных 3 в диапазоне от -30 до 30. Срочно!!!!В программе Pascal!!!

Ответ оставил Гость

Var
i,k,s : integer;
begin
k := 0;
s := 0;
for i := - 30 to 30 do
if i mod 3 = 0 then
begin
k := k +1;
s := s + i;
end;
writeln (k);
writeln (s);
end.

Не нашли ответа?

Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.