Program rost;
var R1,R2,R3,max:integer;
begin
writeln('Введите рост первого человека'); readln(R1);
writeln('Введите рост второго человека'); readln(R2);
writeln('Введите рост третьего человека'); readln(R3);
max:=R1;
if R2>max then
begin
max:=R2;
if R3>max then max:=R3
end
else if R3>max then max:=R3;
writeln('Рост самого высого человека=',max);
end.
Код буквы трехзначный, начинающийся с 1, или однозначный (0 для С).
8СF8(16) = 1000 1100 1111 1000(2)
100 - К
0 - С
110 - О
0 - С
111 - Л
110 - О
0 - С
0 - С
Получается КСОСЛОСС, т.е. ответ номер 3.
PS. Слова в предложении отделяются друг от друга одним пробелом.
procedure per(s:string);
var s1,s2:string;
i:integer;
begin
s:=s+' ';
s1:='';
s2:='';
for i:=1 to length(s) do
if s[i]<>' ' then
begin
s1:=s1+s[i];
s2:=s[i]+s2;
end
else begin
if s1=s2 then writeln(s1);
s1:='';
s2:='';
end;
end;
begin
per('это шалаш или нет');
end.
Результат:
шалаш
или
Program c2_2;
var a: integer;
begin
write('увядіте цэлы лік');
readln(a);
if (a mod 2=0) then a:=a div 2;
write (a);
end.
Ответ:
На скриншотах.
Объяснение:
Как вариант можно написать программу так.