Если не хочется думать, можно построить таблицу интинности и потом сравнить её с данной в условии.
Оказывается, F(x,y,z) = 0 для двух наборов (x, y, z): (1, 0, 1) и (0, 0, 1). В таблице из условия нули получились на входах 010 и 011. То, что оба раза 0 - это y, то. что оба раза 1 - это z, то, что осталось - это x.
Переменная 1 - y, переменная 2 - z, переменная 3 - x
1) var a,b,s :real;
begin
readln(a,b);
s:=a+b;
write(s);
end.
2)несовсем понятно
var a,n,i:integer;
begin
readln(n);
for i:=1 to n do
begin
a:=3*i;
write(a);
end; end.
Подробное решение во вложении
Var a,b,c:real;
begin
writeln('введите значения трех углов:');
readln(a,b,c);
if (a+b+c)<>180 then writeln('введены некорректные данные')else
if (a=90)or(b=90)or(c=90) then writeln('прямоугольный')else
if (a=b)and(b=c) then writeln('равносторонний')else
if (a=b)or(b=c)or(a=c) then writeln('равнобедренный')else
writeln('разносторонний')
end.
Капс лог писать большими буквами
па дж давн опуститься вниз страницы
дельте стереть букву справа от мигающей палочки (ну когда печатаешь)