Var
a,b:integer;
i:integer;
begin
for i:=1 to 3 do
begin
writeln('Pryamougolnik ', i);
writeln('vvedite storonu a');
readln(a);
writeln('vvedite storonu b');
readln(b);
writeln('perimetr = ', (a+b)*2);
end;
end.
Воть, всё по логике *:
Удачи:)
<em>P.S. Первые 3 условия по-видимому можно исключить, но я не стал рисковать: в этом мире и так чудес мало, а программа работает</em>
Компьютеры в интернете различают с помощью IP-адреса(<span>Интернет-протокол) который присваивается компьютеру при подключению к интернету.
Документы в интернете различают по их названию и типу файла</span>
Var
st: string;
i: byte;
sum: integer;
begin
st := 'БАЙТ';
for i:=1 to Length(st) do sum:=sum+ord(st[i]);
Writeln('Сумма кодов букв в слове БАЙТ = ', sum);
end.<span>
</span>