Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

реализация основных алгоритмических конструкций на языке программирования

Ответ оставил Гость

Линейная структура на языке 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.