Линейная структура на языке Pascal Нахождение расстояния 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.
Линейная структура на языке Pascal
Нахождение расстояния
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.