1)
var a:integer;
begin
for a:=1 to 5 do
write(a,' ');
end.
2)
var a:integer;
begin
for a:=5 downto 1 do
write(a,' ');
end.
Var a:longint;
begin
read(a);
if a>0 then
a:=a+1;
<span>end.
</span>
<span>Если понравилось решение - нажимай "спасибо" и "лучший" (рядом с кнопкой "спасибо") :)</span>
Uses crt;
var s1, s2: String;
d1, d2: Integer;
begin
readln(s1, s2);
d1 := length(s1);
d2 := length(s2);
if d1 > d2 then writeln('Строка ', s1, ' длиннее') else writeln('Строка ', s2, ' длиннее');
end.
Потому что по всему миру находятся куча серверов, и если какой то из них выходит из строя, то недоступна становится лишь та информация которая находилась на этом сервере!
С линиями связи почти такая же история. Всегда есть резервные каналы и тем самым маршрутизаторы ищут обходные пути