Uses GraphABC;
var s:string;
begin
writeln('Введите название фигуры (круг или треугольник):');
readln(s);
setwindowsize (640,480);
setwindowtitle (s);
setpencolor (clBlue);
setpenwidth (4);
if s='круг' then
circle(300,200,120)
else begin
Line(300,50,30,400);
Line(30,400,570,400);
Line(570,400,300,50);
end;
end.
Алгоритм:
Начало
Ввод t
Если t>1 часа, то
начать выполнение операторов
ввод S;
V=S/t;
вывод V
закончить выполнение операторов
иначе
начать выполнение операторов
ввод V;
S=Vt;
вывод S;
закончить выполнение операторов
Var S,V,t:integer;
begin
read(t);
if t>1 then
begin
read(s);
v:=s/t;
writeln('Скорость=',v);
end
else
begin
read(v);
s:=v*t;
writeln('Расстояние=',s);
end;
end.
И вниз..жесткий диск, процессор, оперативная память
Так как (i:=1) и (пока i<5) и (в цикле i увеличивается с шагом +1), то цикл осуществляется 4 раза (для i=1, 2, 3 и 4)
первоначальное s=1
начинаем цикл:
i=1......................s:=1+1*(1+1)......................s=3
i=2......................s:=3+2*(2+1)......................s=9
i=3......................s:=9+3*(3+1)......................s=21
i=4......................s:=21+4*(4+1)....................s=41
конец цикла
Итого s=41