var
s: string;
e, tmp: integer;
mistake: boolean;
begin
mistake := true;
write('Введите логин: ');
readln(s);
if ((s.Length = 7) and (s[1] = 'i') and (s[2] = 'o')) then
begin
s := s.Remove(0, 2);
Val(s, tmp, e);
if (e = 0) then
mistake := false;
end;
if (mistake) then
write('Incorrect')
else
write('Correct');
end.
5 мин 57 сек= 357
Скорость передачи определяется отношением количества информации ко времени
357:357=1
хз правильно ли
Var
a:array[1..35]of integer;
i,max,n:integer;
begin
readln(n);
for i:=1 to n do
read(a[i]);
max:=a[1];
for i:=1 to n do
if a[i]>max then
max:=a[i];
writeln;
writeln(max);
end.
ну буквы Вы не написали, поэому задание полностью выполнить не получится. Но Вы можете сами записать буквы, по представленному адресу: <u>http:\\doc.com\print.doc</u>