Новые сообщения · Правила  
  • Страница 1 из 1
  • 1
Модератор форума: Berestovskiy  
паскаль
Помогите пожалуйста. Срочно нужно!!!
Program kod;
uses crt;
var
sss,ss:string;
a:array[0..8] of integer;
slovo,s,p,j,i,d,m,s1,s2,s3:integer;
procedure dva;
begin
s1:=(a[1]+a[3]+a[5]+a[7]) mod 2;
s2:=(a[2]+a[3]+a[6]+a[7]) mod 2;
s3:=(a[4]+a[5]+a[6]+a[7]) mod 2;
if (s1=1) or (s2=1) or (s3=1) then
begin
s:=s1+s2*2+s3*4;
writeln('oshibka dopushena v pozitcii nomer ',s)
end
else
writeln('oshibok net');
end;
BEGIN
clrscr;
slovo:=1;
writeln('vvedite posledovatelnost is 0 i 1');
readln(ss);
p:=1;
while (p+6)<=length(ss) do
begin
j:=p;
for i:=j to j+6 do
begin
val(ss,d,m);
a
:=d;
p:=p+7;
end;
while length(ss)>=7 do
begin
i:=0;
sss:=copy(ss,1,7);
delete(ss,1,7);
writeln('dlya ',slovo,'slova:',sss);
slovo:=slovo+1;
dva;
readln;
end;
end;
end
1 | Автор: lenaG | 2013-04-23, 15:00   |  Репутация: [ + 0 ]
1 | Автор: lenaG | 2013-04-23, 15:00   |  Репутация: [ + 0 ]
С ЧЕМ ПОМОЧЬ?

Нужна помощь? Сюда: vkontakte.ru/berestovskiy
2 | Автор: Berestovskiy | 2013-04-24, 07:26   |  Репутация: [ + 211 ]
  • Страница 1 из 1
  • 1
Поиск: