Линейная структура на языке<u>Pascal</u>
Нахождение расстояния
var V,S,t:real;
begin
readln(V,t);
S:=V*t;
writeln(S);
end.
Ветвление
var a,b:integer;
begin
readln(a,b);
if (a>b) then writeln('+++') else
writeln('---');
readln;
end.
Цикл
var i:integer;
begin
for i:=1 to 5 do writeln(i);
readln;
end.
var x,y:real;
begin
readln(x);
y:=(sin(x)/Power(20,x))*sqrt(x);
writeln(y);
end.
=МИН(число1,число2....)
и
=СУММ(выбрать диапазон)