Помогите плиз.Срочно.3 и 6

Question

Помогите плиз.Срочно.3 и 6

---

Comments

pascal?

---

да

Answer 1

Ном. 6
var a,b,c:integer;
begin
readln(a,b,c);
if a=b=c then writeln("Равны")
else writeln("Не равны!");
end.

Comments

Тесть, если ошибки будут кидай сюда, просто я очень давно ничего на паскале не писал, могу ошибиться

---

ну вообще это дз,так что сказать ничего не могу,но смотря по решению вроде правильно.

Answer 2

Var a: integer;
begin
write('Введите а: ');
readln(a);
write('Результат: ');
if a<=0 then<br>write(sqr(a))
else
writeln('a>=0');
end.

var a,b,c: integer;
begin
write('Введите а: ');
readln(a);
write('Введите b: ');
readln(b);
write('Введите c: ');
readln(c);
write((a=b) and (b=c) ? 'равны':'не равны' )
end.