Код на паскале

program ex;
var
    x, y, z: real;
begin
    writeln('Введите x и y: ');
    readln(x, y);

    if ((x*x + y*y) < 1) then
        z := x*x + y*y;
    if ((x*x + y*y = 1)) then
        z := x + y;
    if ((x*x + y*y) > 1) then
        z := 0.5;

    writeln('z = ', z);
end.

0 0

4 года назад

Написать программу на языке паскаль при помощи подпрограммы функции которая вычисляет минимальное из чисел a b c d

ANZA99 [14]

PascalABC.NET

type mass = array [1..4] of integer;

var a : mass;
i : integer;

function min(c : mass) : integer;
var
i,minim : integer;
begin
minim := c[1];
for i := 2 to 4 do
if c[i] < minim then
minim := c[i];
result := minim;
end;

begin
for i := 1 to 4 do
readln (a[i]);
writeln ('min = ',min(a));<span>
end.

Как параметр я использовал массив из четырех элементов. Можно использовать просто переменные и через IF все прописать</span>

0 0

4 года назад

Информатика c++ Программа, которая выводит на экран 2014 число из последоваиельности 12345..

SpaceMan [7]

$a_n=a_1+(n-1)d\\a_{2014}=1+2013*1$
using namespace std;

int _tmain(int argc, _TCHAR* argv[])
{
cout << 1 + 2013 * 1;
system("pause");
return 0;
}

0 0

4 года назад

Среди 79 монет имеется одна фальшивая (более лёгкая)монета Как её найти,используя не более четырёх взвешиваний?

Юрий78

Кинуть монеты вверх, фальшивая ( самая лёгкая) взлетит выше.

0 0

4 года назад