Задать вопрос
12 ноября, 17:05

в паскале Ввести два числа K и N. Вводить последовательно числа, используя переменную R, пока R не будет равен K или N. На печать выдать сумму положительных чисел R.

+1
Ответы (1)
  1. 12 ноября, 18:45
    0
    var N, R, K, S: integer;

    begin

    read (K, N) ;

    while (RK) and (RN) do

    begin

    read (R)

    if R>0 then S:=S+R;

    end;

    write (S)

    end.;
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «в паскале Ввести два числа K и N. Вводить последовательно числа, используя переменную R, пока R не будет равен K или N. На печать выдать ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы