ПОМОГИТЕ, ПОЖАЛУЙСТА!!!запросить начало и конец отрезка и посчитать суму и количество...

Question

ПОМОГИТЕ, ПОЖАЛУЙСТА!!!
запросить начало и конец отрезка и посчитать суму и количество числе, кратных 5 и количество чисел, которые не удовлетворяют этому условию.
Помогите, пожалуйста
(начинается вот так: SCREEN 12
INPUT "введите число";... и т.д.

Answer 1

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.