ПОМОГИТЕ, ПОЖАЛУЙСТА!!!
запросить начало и конец отрезка и посчитать суму и количество числе, кратных 5 и количество чисел, которые не удовлетворяют этому условию.
Помогите, пожалуйста
(начинается вот так: SCREEN 12
INPUT "введите число";... и т.д.
uses crt;
var sum,count,count1,nachalo,konec:integer;
begin
sum:=0;
count : = 0;
count1:= 0;
nachalo:=-10;
konec:=10;
for i:=nachalo to konec do
begin
if i mod 5 = 0 then
begin
inc(count);
sum:=sum+i;
end
else
inc(count1);
end;
writeln(kolichestrvo chisel kratnyh 5 = ,count);
writeln(ih suma = ,sum);
writeln(kolichestrvo chisel ne kratnyh 5 = ,count1);
readln;
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
