A)X+Y=<span>10011000
X-Y=</span><span>111010
</span>Б)X+Y=<span>1000101111
</span>X-Y=<span>10111101
В)X+Y=</span><span>101000100
</span>Y-Y=<span>11101110</span>
<span>
</span>
Uses crt;
var a,b,c,s:integer;
begin
readln(a);
b:=a;
s:=0;
repeat
c:=b mod 10;
s:=s+c;
b:=b div 10;
until b=0;
if (s mod 2 =0) then writeln('четное') else writeln('нечетное');
end.
<u><em>// PascalABC.NET 3.3, сборка 1634 от 14.02.2018</em></u>
<u><em>// Внимание! Если программа не работает, обновите версию!</em></u>
type
Human=class
public
Name:string;
Age:string;
Height:string;
end;
begin
var h:=new Human;
Write('Привет, как тебя зовут:'); Readln(h.Name);
Write('Здорово ' ,h.Name,', а скажи-ка сколько тебе лет:');
Readln(h.Age);
if (h.Age).ToInteger>18 then Writeln('Здорово ты уже совершеннолетний!')
else Writeln('Ой! Да ты ещё совсем мал.');
Write('Окей, а какой же твой рост (см) :'); Readln(h.Height);
Writeln('Вот результаты. Твоё имя - ',h.Name,', тебе ' ,h.Age,
' лет, а рост - ',h.Height ,'см')
end.
<u>Я не совсем понял смысла вводить тут класс, потому что работа с ним ведется, как с обыкновенной записью. Замените начало кода программы нижеследующим и убедитесь, что ничего не изменится.</u>
type
Human=record
Name:string;
Age:string;
Height:string;
end;
begin
var h:Human;
Вот это увидел точки соедени точно как у меня это обезательно