Впаскале ввести два числа k и n. вводить последовательно числа, используя переменную r, пока r не будет равен k или n. на печать выдать сумму положительных чисел r.
долма1
1
21.05.2019 13:00
2
Другие вопросы по теме Информатика
Ембергенова
31.07.2019 12:10
ElenaBorova
31.07.2019 12:10
Josoy
31.07.2019 12:10
ksushaybff
31.07.2019 12:10
Janna91
31.07.2019 12:10
danya13112004
31.07.2019 12:10
Alina560
31.07.2019 12:10
gopkomaks
31.07.2019 12:10
Популярные вопросы
- А2. органом дыхания не является: 1) гортань 2) трахея 3) грудная полость 4) бронхи...
2 - Две моторные лодки отошли от пристани одновременно в противоположном направлении,через...
3 - 7-8 примеров грибов съедобных и несъедобных...
3 - Найди и подчеркни имена существительные.обозначь их число.2класс.ель растет перед...
2 - Complete the sentences with the correct form of do or make. 1.she is fond of children....
1 - Написать сочинение по казахскому на тему тiл...
3 - Подчеркни имена существительные летит нетерпеливая задумчивый снежок лежит в дупле...
3 - Решите .движение тела задано уравнением x=30+5t-0.1t^2чему равны: а)начальная...
3 - Сообщение на тему кто такой геракл?...
3 - Вгамме b dur построить t6 d43 t53 s6 t53...
2
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.;