Картинка должна быть в папке с программой и быть в формате BMP
uses
graphabc;
var
n: string;
b: Picture;
s:integer;
begin
writeln('введите расстояние до зеркала');
readln(s);
write('Введите имя файла рисунка: ');
readln(n);
window.Clear;
b := Picture.Create(n);
b.Load(n);
b.Draw(50, 50);
b.FlipHorizontal;
b.Draw(50+2*s,50);
end.
Ответ:
000, посмотри в интернете объяснение таких заданий, это же прототип егэ, причём легкий.
Ответ:
[x-1] [x-1] [x-1]
Объяснение:
система счисления x
используются цифры 0 .. [x-1]
ответ - число из трех максимальных цифр
Var
x,y:real;
begin
Write('Введите число: ');
Readln(x);
if x=0 then Writeln('Функция не определена')
else if x=5 then Writeln('Значение функции бесконечно')
else
begin
if x<0 then y:=1/(x-1)
else y:=1/(x-5);
Writeln('F(x)=',y)
end
end.