1.35
2.var y,x:real;
begin
read(x);
if x<=-1 then
y:=-(1/sqr(x))
else if (x>-1) and (x<=-2) then
y:=sqr(x)
else if x>2 then y:=-4;
print (y);
end.
Cхему думаю составишь сам уже
Задача 1:
Program Test1;
Var min, i: integer; num: array[1..5] of integer;
Begin
Writeln('Введите 5 чисел (через пробел): ');
Readln(num[1], num[2], num[3], num[4], num[5]);
min := 0;
for i := 1 to 5 do
begin
if (num[i] < min) then
min := num[i];
end;
if (min < 0) then
begin
Writeln();
Writeln('Min = ', min);
end
else
begin
Writeln();
Writeln('Вы не ввели отрицательных чисел!');
end;
End.
---------------------------------
Задача 2:
Program Test2;
Var max, i: integer; num: array[1..10] of integer;
Begin
Writeln('Введите 10 чисел (через пробел): ');
Readln(num[1], num[2], num[3], num[4], num[5], num[6], num[7], num[8], num[9], num[10]);
max := 0;
for i := 1 to 10 do
begin
if (num[i] > max) then
begin
if (num[i] mod 2 = 0) then
max := num[i];
end;
end;
if (max > 0) then
begin
Writeln();
Writeln('Max = ', max);
end
else
begin
Writeln();
Writeln('Вы не ввели четных положительных чисел!');
end;
End.
Есть крутая вещь - справка! Найти аналоги функций не такая уж большая проблема...
Ты когда-нибудь наливал воду в форму для льда? Допустим, в одной ячейке умещается 1 ложка воды, но тебе нужно залить полторы ложки. Естественно, в одной ячейке столько не уместится, и тогда половина ложки перельется в другую ячейку. Точно так же и в этой задаче: в одном блоке (образной ячейке) умещается 2 Кб данных, но файл весит 2500 байт, то есть чуть больше. Надеюсь, я все правильно понял и помог)
