Предмет: Информатика,
автор: Аноним
Помогите пожалуйста срочно!!
Написать программу нахождения суммы всех чисел> заданного К при вводе до первого отрицательного.
Ответы
Автор ответа:
0
//Pascal ABC.NET v3.0 сборка 1111
var
a,k,s:integer;
begin
readln(k); //вводим k
a:=0;
s:=0;
while a>=0 do //пока а >=0
begin;
if a>k then s:=s+a; //если a>k, тогда добавляем к s
readln(a); //каждый раз вводим в a
end;
writeln(s); //выводим s
end.
Пример ввода:
45
34
56
67
-2
Пример вывода:
123
var
a,k,s:integer;
begin
readln(k); //вводим k
a:=0;
s:=0;
while a>=0 do //пока а >=0
begin;
if a>k then s:=s+a; //если a>k, тогда добавляем к s
readln(a); //каждый раз вводим в a
end;
writeln(s); //выводим s
end.
Пример ввода:
45
34
56
67
-2
Пример вывода:
123
Похожие вопросы
Предмет: Английский язык,
автор: musaevasholpan1960
Предмет: Биология,
автор: margarita374
Предмет: Английский язык,
автор: asadmuratbekov449
Предмет: Литература,
автор: temaprost
Предмет: Физика,
автор: daria11111112