Линейная структура на языке<u>Pascal</u>
Нахождение расстояния
var V,S,t:real;
begin
readln(V,t);
S:=V*t;
writeln(S);
end.
Ветвление
var a,b:integer;
readln(a,b);
if (a>b) then writeln('+++') else
writeln('---');
readln;
Цикл
var i:integer;
for i:=1 to 5 do writeln(i);
Лови свои блок-схемы.
№7
1.44 Мбайт=1474,56 КБайт
1474,56 : 100 = 14 , Ответ : 14 файлов