Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
десятичная двоичная восьмеричная шестнадцатиричная
1)
10 1010 12 a
18 10010 22 12
322 101000010 502 142
2)
10 1010
74 112
92 5c
числа снизу обозначают систему счисления
program;
var
max,val: integer;
label
start, ends;
begin
max: =-50;
val: =50;
start:
if val> max then val: =val-10
if val=max then goto ends;
goto start;
ends:
end.
for a : = 1 to 20 do
writeln(a,"^2 = ", a*a);
end
или
a: = 1;
repeat
a : = a + 1;
until a > 20;
1) присвоения : =2)343,5 3) 1a=2 b=5var a,x,x1,x2,x3: integer; begin read(a); writeln('4. s=',4*a); read(x); x3: =x mod 10; x1: =x div 10; writeln('5. x=',x3*100+x1); end.
Популярные вопросы