uses crt;
var s,sl: string;
i,k: integer;
begin
writeln('Введите строку');
readln(s);
s:=s+' ';
sl:='';
for i:=1 to length(s) do
if s[i]<>' ' then sl:=sl+s[i]
else
begin
if (sl[1]=sl[length(sl)]) and (length(sl)<>0) then inc(k);
sl:='';
end;
writeln('Количество слов, начинающихся и заканчивающихся одной буквой = ',k);
readkey
end.
вообще признак делимости на 2 можно определить проще. Если остаток от деления на 2=0 тогда число делится на 2 нацело иначе нет if (n mod 2)=0 then writeln('Число делится на 2 нацело' ) else writeln('Число не делиться на 2 нацело' );
Однако если по условию задачи признак, такой то уж ничего не пделаешь
Program evenNum;
Uses crt;
var n:real;
begin
clrscr;
write('Введите число n: ');
readln(n);
if ((n/2)<>(n div 2)) then writeln('Число не делится на 2 нацело' )
else writeln('Число делится на 2 нацело' );
readkey;
end.
Трогать разъемы соединительных кабелей и проводов
прикасаться к питающим проводам и устройствам заземления
прикасаться к экрану и к тыльной стороне монитора, клавиатуры
работать в верхней одежде и влажными руками
при появлении запаха гари необходимо немедленно прекратить работу, выключить
аппаратуру и сообщить об этом преподавателю
необходимо следить за исправностью аппаратуры и немедленно прекращать работу при
появлении необычного звука или самопроизвольного отключения аппаратуры
1)8
2)78
3)32
Вроде бы так насчет 2 не уверен
<span>Для хранения 3 символов необходима ячейка, объемом </span>24 бит
