sonicp
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
1.
Код: var mas: array [0..50] of real;
t:boolean;
i,n:integer;
begin
t:=true;
write('Vvedite chislo elementov: ');
readln(n);
for i:=0 to n-1 do
begin
write('mas[',i,']=');
readln(mas[i]);
end;
for i:=1 to n-1 do
if (mas[i]*mas[i-1] >= 0 ) then
begin
t:=false;
break;
end;
write('Posledovatelnost nenulevih elementov chereduyuschihsya znakov: ');
writeln(t)
readln;
end.
|
2.
Код: var strsource,strdest:string;
temp:integer;
begin
write('Vvedite stroku simvolov: ');
readln(strsource);
temp:=pos(' ',strsource);
while (temp <> 0) do
begin
strdest:=concat(strdest, copy(strsource,1,temp-1) );
strdest:=concat(strdest,' '); {dva probela}
delete(strsource,1,temp);
temp:=pos(' ',strsource);
end;
strdest:=concat(strdest,strsource);
writeln('Result string: ',strdest);
readln;
end.
|
|
Всего записей: 74 | Зарегистр. 30-10-2004 | Отправлено: 15:58 15-04-2006 | Исправлено: sonicp, 15:59 15-04-2006 |
|
