Готово :)
..............................
Помогу только со вторым заданием. Прости(
Также сверху ставится один значок, я его найти не смогла, поэтому буду помечать как "значок". На всякий случай оставлю рисунок, как он выглядит.
НЕ (Ударение на первый слог) И (Количество букв четное)
Корова - 0 (сверху значок) = 1 × 1 = 1
Козел - 0 (сверху значок) = 1 × 0 = 0
Кошка - 1 (сверху значок) = 0 × 0 = 0
Конь - 1 (сверху значок) = 0 × 1 = 0
Ответ: корова.
—
Удачи)))
Второй if (в круглых скобках) синтаксически неверен
Var x,y: real;
begin
write(' x = '); readln(x);
if x<0 then y:=sqr(x)*x+2
else y:=sqrt(x);
writeln(' y = ',y:6:4);
end.
<span>
</span>
<em>Ниже жирным шрифтом приведен код программы на Паскале. В фигурных скобках обычным шрифтом - комментарии. Можно их оставить - компилятор не сможет их прочитать и программа все равно будет работать.</em>
program printname;
var first_name, family_name : string;
i : byte;
begin
write('Введи свое имя: ');
readln(first_name);<em>{считываем имя в переменную first_name}</em>
write('Введи свою фамилию: ');
readln(family_name); {считываем фамилию в переменную family_name}
for i := 1 to 10 do writeln(family_name, ' ', first_name);<em>{В цикле for со счетчиком i изменяющимся от 1 до 10 печатаем строки с фамилией и именем через пробел}</em>
end.