Var
a,s:integer;
begin
s:=0;
repeat
readln(a);
s:=s+a;
until a=0;
writeln('Сумма чисел: ',s);
<span>end</span>
Var _500,_100,_50,_10,money_get:integer;beginwriteln('Введите стоимость товара');readln(money_get);while(money_get mod 10 <> 0) do begin writeln('стоимость должна делиться на 10, попробуйте еще раз'); readln(money_get); end;while (money_get>=500) do begin _500:=_500+1; money_get:=money_get-500; end;while (money_get>=100) do begin _100:=_100+1; money_get:=money_get-100; end;while (money_get>=50) do begin _50:=_50+1; money_get:=money_get-50; end;while (money_get>=10) do begin _10:=_10+1; money_get:=money_get-10; end;
writeln(_500,': 500 рублей',_100,':100 рублей',_50,':50 рублей',_10,':10 рублей');
readln;end.<span>
</span>
Восьмеричная:
двоичное число разбиваем на триады с конца и переводим в десятичную
1000110010010 - 2
110 - 6
000 - 0
001 - 1
ответ - 1062 в восьмеричной
16 ричная:
разбиваем на тетрады
0010 - 2
0011 - 3
0010 - 2
ответ 232 в 16ричной
Десятичная:
1000110010<span> = 1∙2^</span>9+0∙2^8+0∙2^7+0∙2^6+1∙2^5+1∙2^4+0∙2^3+0∙2^2+1∙2^1+0∙2^0<span> = 512+0+0+0+32+16+0+0+2+0 = 562 в десятичной
</span>
чтобы перевести в любую другую систему можно взять десятичное число (в данном случае 562) и перевести в нужную систему (например в троичную). (ответ в приложении)
Program p1;
var n, i: integer;
begin
WriteLn('Введите n');
ReadLn(n);
for i := 1 to n do
WriteLn(i);
end.
===============
program p2;
var n, i: integer;
begin
WriteLn('Введите n');
ReadLn(n);
for i := n downto 1 do
WriteLn(i);
end.
===============
program p3;
var n, i: integer;
begin
WriteLn('Введите n');
ReadLn(n);
for i := 1 to n do
if i mod 3 = 0 then WriteLn(i);
end.
===============
program p4;
var n, i: integer;
begin
i := 1;
WriteLn('Введите n');
ReadLn(n);
while i <= n do
begin;
if i mod 3 = 0 then WriteLn(i);
i := i + 1;
end;
end.
===============
program p5;
var n, i: integer;
begin
WriteLn('Введите n');
ReadLn(n);
for i := 1 to n do
if i mod 2 = 0 then WriteLn(i);
end.
===============
program p6;
var n, i: integer;
begin
i := 1;
WriteLn('Введите n');
ReadLn(n);
while i <= n do
begin;
if i mod 2 = 0 then WriteLn(i);
i := i + 1;
end;
end.
1.Взять ведро налить воды.
2.Вылить воду на огонь.
3.не Пугать животных