Напишите программу по 3 задачам

01.01.2001

напишите программу по 3 задачам

  • напишу базовый код, дополнишь сам (а) .
    1)var
    n,i:byte;
    begin
    writeln('Введите количество "приветов"(не более 255)');
    readln(n);
    n:=n-1;
    for i:=0 to n do
    writeln('Привет! ')

    2)var (дополнение)
    i:integer
    a,bбс: integer;
    begin
    if a>b then
    begin
    c:=a;
    for i:=a downto b do
    dec(c);
    end else
    аналогично для второго исхода сравнения
    end;

    3)var
    a,b,c,i:integer;
    begin
    readln(a,b);
    c:=0;
    for i:=a to и do
    на каждом шаге увеличиваем с на i
    end;

    Учебники читай, такие задачи решаются элементарно

  • денег сколько заплатишь?
  • не знаю! давай понятней!
    Источник: никто
  • Учебники в помощь.
  • Если ещё актуально, пиши на почту, помогу.

Вас заинтересует