Предмет: Информатика,
автор: kosimsher
ребята плиз мне очень нужно ответь
Составить программу, которая бы запрашивала Хнач , Хкон , шаг C и определяла сумму всех отрицательных чисел от Хнач до Хкон с шагом С (решить задачу, используя цикл с постусло-вием – repeat … until).
Ответы
Автор ответа:
0
//Pascal ABC.NET 3.1 сборка 1256
Var
n,k,c,s,kar:real;
i:integer;
begin
read(n,k,c);
i:=0;
s:=0;
kar:=n;
repeat
if n<0 then s:=s+n;
inc(i);
n:=kar+i*c;
until n>k;
writeln(s);
end.
Пример ввода:
-3
1
1.1
Пример вывода:
-5.7
Var
n,k,c,s,kar:real;
i:integer;
begin
read(n,k,c);
i:=0;
s:=0;
kar:=n;
repeat
if n<0 then s:=s+n;
inc(i);
n:=kar+i*c;
until n>k;
writeln(s);
end.
Пример ввода:
-3
1
1.1
Пример вывода:
-5.7
Приложения:

Автор ответа:
0
можеш создать схему этого где начала ввод и канец
Автор ответа:
0
Я так понимаю, Вы имеете в виду блок-схему. Закончу с одной задачей и сделаю.
Автор ответа:
0
ок спасибо
Автор ответа:
0
спасибо
Похожие вопросы
Предмет: Українська мова,
автор: anna1125n
Предмет: История,
автор: VaskovaPolina09
Предмет: Физика,
автор: nastenkafox07
Предмет: Экономика,
автор: ознака
Предмет: Литература,
автор: BEYTULLA