Предмет: Информатика,
автор: lubashka4
в паскале Ввести два числа K и N. Вводить последовательно числа, используя переменную R, пока R не будет равен K или N. На печать выдать сумму положительных чисел R.
Ответы
Автор ответа:
0
var N,R,K,S: integer;
begin
read (K,N);
while (R<>K) and (R<>N) do
begin
read(R)
if R>0 then S:=S+R;
end;
write(S)
end.;
Интересные вопросы
Предмет: Қазақ тiлi,
автор: LesovoiKirill126
Предмет: Алгебра,
автор: arkavy16
Предмет: Информатика,
автор: ulianakosinets
Предмет: История,
автор: Littlewhitefox