Не работает с многоточием, если что.
var f:text; c:char; k:integer;
begin
k:=0;
assign(f,'input');
reset(f);
while eof(f)=false do
if eoln(f) then readln(f)
else
begin
read(f,c);
if (c='.') or (c='!') or (c='?') then k:=k+1;
end;
if not((c='.') or (c='!') or (c='?')) then k:=k+1;
close(f);
write(k)
<span>end.</span>
program delitel;
var A,B: integer;
begin
read(A,B);
if B mod A=0 then write('да,является')
else write('нет,не является');
end.
Извини пожалуйста я не знаю
Ответ: 100011111010, код может означать только слово "ДВОР"
var n:integer;
begin
writeln ("введите число N");
read(n);
if n>0 then n:=n+1;
if n<0 then n:=n-1;
writeln (n);
end.