Информатика, опубликовано 2018-08-22 18:41:08 by Гость
Даны натуральные числа от 35 до 150,найти сумму и колличество тех из них которые при делении на 8,дают остаток 1 или 2
Ответ оставил Гость
Var s,k,i:integer;
begin
k:=0;
s:=0;
for i:=35 to 150 do begin
if (i mod 8 = 1) or (i mod 8 = 2) then begin
s+=i;
k+=1;
end;
end;
writeln(Количество - ,k);
writeln(Сумма - ,s);
end.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на