99=01100011
110=11011110
-95=11111101
-115=11100111
Нужно просто каждое число делить на два пока в частном не получится 0, а потом остатки записать в обратном порядке
Var a,b,c:real;
begin
writeln('введите два числа');readln(a,b);
c:=a+b;
writeln('сумма=',c);
end.
x = 29
y = 20
Программа:
var x, y: integer;
begin
x := 13; y := 2;
while y < 12 do
begin
if y <= x then
begin
x := x - 3;
y := y * 2;
end
else
begin
y := y - 3;
x := x * y;
end;
end;
writeln(x,' ', y);
end.
Program dfgdf;
var
m,o,r,f:real;
begin
writeln('оценку по математике введите');
readln(m);
if (m>=1) and (m<=5) then
begin
writeln('оценку по русскому введите');
readln(r);
if (r>=1) and (r<=5) then
begin
writeln('оценку по физике введите');
readln(f);
if (f>=1) and (f<=5) then
begin
o:=(m+f+r+5)/4;
writeln('средняя оценка = ',o);
end
else
begin
writeln('не корректный ввод!!!');
end;
end
else
writeln('не корректный ввод!!!')
end
else
writeln('не корректный ввод!!!')
<span>end.</span>
Program Project1;
var m:array [0..19] of integer; i:integer;
begin
for i:=0 to 19 do begin
m[i]:=20-Random(30);
if m[i]<0 then m[i]:=m[i]*-1;
writeln(m[i]);
end;
readln;
end.