Регистрация
Olesyalesya55
07.09.2022 01:31
Информатика
Есть ответ 👍

Компьютерлік желілер қандай негізгі параметрлермен бағаланады? Компьютерлік желілерді құруға қандай құрылғылар қажет?​

262
393
Посмотреть ответы 1

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

Свєтлана1
Свєтлана1
4,4(2 оценок)
Program project1; uses crt,math; var   s: real;   i,j,f: real;   a: integer; begin  writeln('vvedite 1 chislo '); readln(i);     writeln('vvedite 2 chislo '); readln(j);     writeln('vvedite 3 chislo '); readln(f);     s: =i;     if j< s then s: =j;     if f< s then s: =f;   if s< 0 then    begin       if i< 0 then inc(a);       if j< 0 then inc(a);     if f< 0 then inc(a);     writeln('kolichestvo otricatelnix ',a: 2);     end    else    begin      if i> 0 then i: =i*-1;     if j> 0 then j: =i*-1;     if f> 0 then f: =i*-1;     end;     writeln('min chislo ',s: 2: 0);     readln; end.      

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