ПОМОГИТЕ, ПОЖАЛУЙСТА!!!запросить начало и конец отрезка и посчитать суму и количество числе, кратных 5 и количество чисел, которые не удовлетворяют этому условию.Помогите, пожалуйста (начинается вот так: SCREEN 12 ...
ПОМОГИТЕ, ПОЖАЛУЙСТА!!!
запросить начало и конец отрезка и посчитать суму и количество числе, кратных 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.
Не нашли ответ?
Похожие вопросы