Если нужно, то в начале дописать "начало"
(1 и 0)=0, (0 или 1)=1 -ответ
<span>program 123;
uses crt;
var m, n: longint;
k: integer; {счетчик цифр}
begin
clrscr;
{Вводим целое число.}
writeln('Введите N='); readln(n);
{Запоминаем его и счетчику цифр присваиваем начальное значение.}
m:=n;k:=0;
{Пока m<>0 делать цикл.}
while m <>0 do
begin
{"Уменьшаем" число на последнюю цифру, т. е. в 10 раз.}
k:=k+1; m:= m div 10; {Inc(k) }
end;
{Вывод количества цифр.}
writeln('B числе ',n,'- ',k, ' цифр!');
readln;
end.</span>
1)
(Слова разделяются одним пробелом)
var s:string;
l,i:integer;
begin
writeln('Введите строку:');
readln(s);
l:=length(s);
i:=l;
while s[i]<>' ' do
begin
s[i]:='!';
i:=i-1;
end;
writeln(s);
end.
Пример:Введите строку:
с клавиатуры вводится строка символов
с клавиатуры вводится строка !!!!!!!!
2)
var s1,s2:string;
p,i:integer;
begin
writeln('Введите строку:');
readln(s1);
p:=pos(';',s1);
s2:=copy(s1,1,p);
i:=p+1;
while s1[i]<>';' do i:=i+1;
s2:=s2+copy(s1,i,length(s1)-i+1);
writeln(s2);
end.
Введите строку:
abс;xyz;reо
abс;;reо
Бережливым быть умей,
И по клавишам не бей,
Там, учтите этот факт,
Если вводишь ты ответ,
А компьютер скажет "Нет",
По дисплею не стучи,
Лучше правила учи!
Разрешать работу строго
С разрешения педагога,
И учтите : вы в ответе,
За порядок в кабинете!!