Var a:string; b,c,v,s:byte; begin b:=0; c:=0; writeln('Введите строчку'); readln (a); repeat inc (b); if (a[b]=' ') or (b=length(a)) then begin inc (c);
if (c=1) then v:=b;
if c=2 then begin if (b=length(a)) then delete(a,v,b-v+1) else delete(a,v,b-v); b:=b-(b-v); c:=0; end; end else continue; until b>length(a) ; writeln(a);
readln;
end. Это вот программа по подсчёту пробелов. Эту давно писал, а сейчас занят, поэтому даю только идею
var m: array[1..N, 1..N] of integer; i, j: integer; rec: record mmax: integer = -(maxint); ind: record i: integer; j: integer; end; end;
begin for i := 1 to N do for j := 1 to N do begin read(m[i, j]); if abs(m[i, j]) > rec.mmax then begin rec.mmax := abs(m[i, j]); rec.ind.i := i; rec.ind.j := j; end; end; writeln('Максимальный по модулю элемент матрицы ', rec.mmax, '(', rec.ind.i, ';', rec.ind.j, ')'); end.
Пример: Входные данные: 1 2 3 4 5 -9 7 8 6 Выходные данные: Максимальный по модулю элемент матрицы 9(2;3)
Петя не может быть правым в обоих случаях так как получиться что и петя и женя написали на 5, а тк не может быть по условию. дальше подбираем под петю два оставшихся случая, при том что петя сказал 2 раза правду, но этого не может быть т.к. тогда женя говорит либо 2 неправды либо 50на50, говоря две неправды он противоречит пете о том что он не писал на 5 а говоря правду неправду противоречит и пете и саше. значит петя определенно сказал правду неправду, тогда подставив жене неправду а саше правду получаем что на 5 написал петя.
b,c,v,s:byte;
begin
b:=0;
c:=0;
writeln('Введите строчку');
readln (a);
repeat
inc (b);
if (a[b]=' ') or (b=length(a)) then
begin
inc (c);
if (c=1) then
v:=b;
if c=2 then
begin
if (b=length(a)) then
delete(a,v,b-v+1)
else
delete(a,v,b-v);
b:=b-(b-v);
c:=0;
end;
end
else continue;
until b>length(a) ;
writeln(a);
readln;
end.
Это вот программа по подсчёту пробелов. Эту давно писал, а сейчас занят, поэтому даю только идею