Var
x0,xn,c:real;
x,y,xmax,ymax:real;
begin
writeln('Xнач, Xкон:');
readln(x0,xn);
write('С = '); readln(c);
x:=x0;
xmax:=x; ymax:=x*x-100*x+10;
repeat
x:=x+c;
y:=x*x-100*x+10;
if y>ymax then begin xmax:=x; ymax:=y; end;
until x>=xn;
writeln('xmax = ',xmax,' ymax = ',ymax);
end.
Пример:
Xнач, Xкон:
-10 20
С = 1
xmax = -10 ymax = 1110
Ответ:
Объяснение:
Плохо, что не нарисовали стрелки маршрутов. Поэтому ABCDEFG маршрут может и не быть.
ABFG
ABFEG
ABCDEFG
ABCDEG
ACDG
program raf105;
var a,b:real;
begin
write('Ввод: ');
read(a);
while a<>0 do
begin
a:= (a-((a/10-(round(a/10)))*10))/10;
b:= b+1;
end;
write('Вывод: ',b);
end.
<em>Программа написана на языке PascalABC.NET</em>
Вывода: плоттер
Ввода:джойстик, сканер, цифровой микроскоп, сканер, трекбол, камера и мышь