ТутРешу.Ру

Даны 3 числа a,b,c. Определить минимальное…

Задание:

Даны 3 числа a,b,c. Определить минимальное из них. Если минимальное число окажется отрицательным, то определить количество отрицательных чисел, а иначевсе положительные числа заменить на отрицательные. Написать программу и блок схему

Решение:

Program project1; usescrt,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 j0 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.




Знаете другой ответ?

Отправить свой ответ