Задать вопрос
23 декабря, 20:01

в паскале задачи решить (программу написать)

1) найти сумму элементов от А до Б

2) вывести все элементы от А до Б при любых значениях А и Б (целых)

+4
Ответы (1)
  1. 23 декабря, 21:09
    0
    Program n1;

    Uses CRT;

    Var a, b, s, i: integer;

    begin

    writeln ('Vvedite A i B') ;

    readln (a, b) ;

    If a>b then

    for i:=b to a do

    begin

    writeln (i) ;

    s:=s+i;

    end

    else

    if b>a then

    for i:=a to b do

    begin

    writeln (i) ;

    s:=s+i;

    end

    else writeln ('ravny') ;

    writeln ('Summa = ', s) ;

    readln

    end.
Знаете ответ на вопрос?
Не уверены в ответе?
Правильный ответ на вопрос 👍 «в паскале задачи решить (программу написать) 1) найти сумму элементов от А до Б 2) вывести все элементы от А до Б при любых значениях А и Б ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы