profile
Опубликовано 6 лет назад по предмету Информатика от ledy0608

ПОМОГИТЕ НАПИСАТЬ ПРОГРАМЫ НА ПАСКАЛЕ
№1 В области 12 райнов. Известны количество жителей каждого района (в тысячах человек) и плотность населения в нем (тыс. чел./ км2). Определить общую площадь территории области.
№2   Известны результаты двух спортсменов-пятиборцев в каждом из пяти видов спорта в баллах. Опре­делить сумму баллов, полученных каждым спортсменом.

  1. Ответ
    Ответ дан kefa

    2.

    var
    a1,a2,a3,a4,a5,a:integer;
    b1,b2,b3,b4,b5,b:integer;
    begin
    readln (a1,a2,a3,a4,a5);
    readln (b1,b2,b3,b4,b5);
    a:=a1+a2+a3+a4+a5;
    b:=b1+b2+b3+b4+b5;
    writeln (a,' ',b);
    end.

     

    1. var
    a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12:integer;
    b1,b2,b3,b4,b5,b6,b7,b8,b9,b10,b11,b12:integer;
    n:integer;
    begin
    readln (a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12);
    readln (b1,b2,b3,b4,b5,b6,b7,b8,b9,b10,b11,b12);
    n:=a1*b1+a2*b2+a3*b3+a4*b4+a5*b5+a6*b6+a7*b7+a8*b8+a9*b9+a10*b10+a11*b11+a12*b12;
    writeln (n);
    end.

Самые новые вопросы