Визуализация информации или доступность(в чём я сомневаюсь)
Ответ:
Var
X, i: longint;
Begin
Readln(l);
For x := - 100 to 100 do
Begin
If l*x-5*x+2*l=2 then writeln(x);
End;
End.
Uses crt;
var i:byte;
begin
clrscr;
for i:=1 to 7 do
begin
gotoXY(1,i);
write('*');
gotoXY(7,i);
write('*');
end;
for i:=1 to 5 do
begin
gotoXY(1+i,7-i);
write('*');
end;
readln;
end.
Ответ:
Var
y,x: integer;
begin
writeln('Ведите ваше число:');
read(x) ;
if x > 2 then
writeln('Результат y =: ', x+3)
Else
if x <=- 2 then
writeln('Результат y =: ', 1 div x);
Readln ;
end.