А где варианты ответов?
а по логике от 7,1 до 7,9
var a, b, c: integer;
begin
readln(a, b, c);
if (a=-b)or(a=-c)or(b=-a)or(b=-c)or(c=-a)or(c=-b) then writeln('TRUE') else writeln('FALSE');
end.
В графическом редакторе можно создавать рисунки. В операционной системе Windows самый простой графический редактор - это программа paint.Используя команду Ctrl+S, можно сохранить созданный рисунок. В названии файла нельзя использовать символы #,%,*,&,\,:,|,"". Чтобы распечатать рисунок используют команду "Файл" "печать".
Var
a, b, n: integer;
begin
read(n);
if n<=7 then exit;
for a := 1 to n do
for b := 1 to n do
if 3 * a + 5 * b = n then
writeln('3 * ', a, ' + 5 * ', b, ' = ', n);
end.