1. Ответ:3. <em>В условном операторе перед ELSE не должно быть ";".</em>
2. Ответ:4. <em>Просто в программу вбиваешь код и проверяешь :)</em>
3.<em>Предположим у нас есть массив.</em>
If (a[i]<0) and (a[i] mod 6=0) then b[i]:=a[i] , где
<em>i-индекс</em>
<em>a[i],b[i]- элементы массива.</em>
<em><u>Т. е. мы смотрим, выполняется ли условие. Если да, то записываем это число в новый массив.</u></em>
1) y:= sqrt(a*x+b*x+c*c)/(15*x-sin(x))
2) y:= -12*sqrt(x*(y*y)+cos(a/2))
3) z:= (sin(x)+cos(x))/(sqrt(x*x+15))
4) S:= ((26*k-m)/(6-4*k))-56*m*k
5) y:= x-(sqrt((y*y+2)/2))+2*y
Упражнение 3
1. 1-2
2. 2-1
3. 3-3
Упражнение 4
1. 1-4
2. 3-1
3. 2-3
4. 4-2
program ugol;
var a,b,c,f:integer;
begin
writeln('Введите шширину');
readln(a);
readln(b);
writeln('Введите длину');
readln(c);
readln(f);
if (a<>b) or(c<>f)then
writeln('Нет')
else
if (a=b)and(c=f) then
writeln('Да');
end.
(Исправленая версия)
ps(затупил подумал что квадрат это прямоугольник)