1) uses crt; 2) var 3) s1,s2:string; 4) i,k:integer; 5) begin 6) k:=0; 7) writeln('pervoe slovo?'); 8) readln(s1); 9) writeln('vtoroe slovo?'); 10) readln(s2); 11) for i:=1 to length(s1) do begin 12) if (s1[i]=s2[i]) and (k=i-1) then 13) k:=k+1; 14) end; 15)writeln(k); 16)End.
Я вам уже же дал пример, могли бы сами под себя подстроить, вот, ловите:\\ var input, num, nulls, positive, negative, i: integer; begin write('Введите кол-во чисел: '); readln(input); for i := 1 to input do begin write('Введите число номером ', i, ': '); readln(num); if num = 0 then inc(nulls, 1); if num < 0 then inc(negative, 1); if num > 0 then inc(positive, 1); end; writeln('Кол-во нулей: ', nulls); writeln('Кол-во положительных чисел: ', positive); writeln('Кол-во отрицательных чисел: ', negative); end.
Камера не очень, так что спрашивай, если непонятно что-то. ____________________________________________________ В первом номере деление на триады для восьмеричной - сверху, а для шестнадцатеричной - снизу (см. дуги около числа в двоичной записи). Во втором номере слева исходный пример, а справа в десятичной записи(подразумевалось, что числа сам можешь перевести из (2) в (10) ). Потом ниже проверка. В третьем а) можно было умножать на 16, а можно через двоичную. Я сделала через двоичную. В четвертом, как и в первом, деление на восьмеричные триады - сверху, на шестнадцатеричные - снизу.
2) var
3) s1,s2:string;
4) i,k:integer;
5) begin
6) k:=0;
7) writeln('pervoe slovo?');
8) readln(s1);
9) writeln('vtoroe slovo?');
10) readln(s2);
11) for i:=1 to length(s1) do begin
12) if (s1[i]=s2[i]) and (k=i-1) then
13) k:=k+1;
14) end;
15)writeln(k);
16)End.