//Pascal
var
x, y: real;
begin
write('x = '); readln(x);
if x > 100 then
y := 5 * x + 6
else
if ((x >= 10) and (x <= 100)) then
y := 200 * x
else
if x < 10 then
y := x / 2;
writeln('y = ', y);
end.
Помогу только со вторым заданием. Прости(
Также сверху ставится один значок, я его найти не смогла, поэтому буду помечать как "значок". На всякий случай оставлю рисунок, как он выглядит.
НЕ (Ударение на первый слог) И (Количество букв четное)
Корова - 0 (сверху значок) = 1 × 1 = 1
Козел - 0 (сверху значок) = 1 × 0 = 0
Кошка - 1 (сверху значок) = 0 × 0 = 0
Конь - 1 (сверху значок) = 0 × 1 = 0
Ответ: корова.
—
Удачи)))
Д16*15, если бы перед Д и 15 стоял $, то формула бы не менялась.
Ответ:
program ideone;
uses Math;
var
n, i, j: Integer;
begin
read(n);
for i := 0 to n-1 do
begin
for j := 0 to n-1 do
begin
if (j > 0) then write(' ');
write(Min(Min(i, j), Min(n-i-1, n-j-1))+1);
end;
writeln;
end;
end.
Красив тот, кто красиво поступает.