Написать программу вычисления периметра трапеции, длины сторон которой вводятся с клавиатуры

Program chet; var a,b,c,d,p: real; begin readln(a); readln(b); readln(c); readln(d); p: =a+b+c+d; writeln('пириметр равен: ',p: 2: 2); end;

ответ:

// consoleapplication1.cpp : this file contains the 'main' function. program execution begins and ends there.

//

#include

#include

using std: : cout;

int main()

{

    std: : vector ints = { 1 , -2, -3, -4, 5, 6, -7, -8, -9, 10 };

    cout < < "vector before transformation: ";

    for (auto integer : ints) {

        cout < < integer < < " ";

    }

    cout < < std: : endl;

    for (std: : size_t i = 1; i < ints.size(); ) {

        if (ints[i] < 0) {

            ints.erase(ints.begin() + i);

            i += 1;

            continue;

        }

        i += 2;

    }

    cout < < "vector after transformation: ";

    for (auto integer : ints) {

        cout < < integer < < " ";

    }

    cout < < std: : endl;

}

объяснение:

по условию создаем вектор, удаляем элементы из вектора, если число ниже 0, движемся через один элемент по вектору ¯ツ)_/¯

pascalabc.net

function alleven(n: integer): boolean;

begin

  result : = true;

  while n > 0 do

  begin

    if (n mod 10).isodd then

    begin

      result : = false;

      exit

    end;

    n : = n div 10

  end;

end;

begin

  var (a, b) : = readinteger2;

  var k : = 0;

  for var i : = a to b do

    if alleven(i) then

      k += 1;

  write(k)

end.