Регистрация
лиззка16
15.01.2020 10:57
Информатика
Есть ответ 👍

Найти кол-во и сумму отрицательных значений y. y=a(1+l)/l . где a не равно нулю , а l пренадлежит [-2.5 : 2.5] c шагом 0.52

105
206
Посмотреть ответы 2

Ответы на вопрос:

vedernikowadia
vedernikowadia
4,7(29 оценок)
Var   a,k: integer;   y,l,s: real; begin   writeln('введите ненулевое значение a: ');   read(a);   l: =-2.5; k: =0; s: =0;   while l< =2.5 do begin       y: =a*(1+l)/l;       if y< 0 then begin inc(k); s: =s+y end;       l: =l+0.52   end;   writeln(k,' отрицательных значений с суммой ',s) end. тестовое решение: введите ненулевое значение a: -3.1 8 отрицательных значений с суммой -61.8798422368665
Mani2106
Mani2106
4,6(17 оценок)

ответ:

type man = record

        name: string;

        surname: string;

        date: record

            day: integer;

            month: integer;

            year: integer;

        end;

    end;

 

var people: array [1..100] of man;

    i,n,_year: integer;

    _name: string;

 

begin

    write('enter number of man: ');

    readln(n);

    for i : = 1 to n do

    with people[i] do

    begin

        writeln('man[',i,']: ');

        write('enter name: ');

        readln(name);

        write('enter surname: ');

        readln(surname);

        write('enter birthday day/month/year: ');

        readln(date.day, date.month, date.year);

        writeln;

    end;

    write('enter year: ');

    readln(_year);

    for i : = 1 to n do

    with people[i] do

        if (date.year = _year) then

            writeln('name: ',name,' surname: ',surname);

    writeln;

    write('enter name: ');

    readln(_name);

    for i : = 1 to n do

    with people[i] do

        if (name = _name) then

        begin

            write(surname,' ',name);

            writeln(' ',date.day,'.',date.month,'.',date.year);

        end;

    readln;

end.

объяснение:

Популярно: Информатика