Program month;
var a: Integer;
Begin
Writeln('Введите число от 1 до 3');
Readln(a);
If a=1 then writeln('Январь');
if a=2 then writeln('Февраль');
if a=3 then writeln('Март');
Readln;
end.
Пример:
<span>Введите число от 1 до 3
2
Февраль</span>
Program gt;
var a,b,c,max:real;
begin
readln(a,b,c);
max:=a;
if(b>max)then max:=b;
if(c>max)then max:=c;
writeln(max);
end.
На обычном паскалеАБЦ
var a:array[1..24] of integer; k,i:integer;
begin
k:=0;
for i:=1 to 24 do read(a[i]);
for i:=1 to 24 do if (a[i]>0) and (a[i] mod 2=0) then k:=k+1;
write(k)
<span>end.</span>
1)джостик,2)графопостроитель,3)процесор,4)наушники,5)центральный процесор,6)акустические колонки,7)карта расширения,8)Delete,9)лазерный принтер.
Ответ:
1F₁₆
Объяснение:
20₁₆ - 1 = 1F₁₆
Любая система счисления использует цифры по кольцу. В 16-й их 16: от 0 до F. Следовательно, после F следует 0 (и +1 в старший разряд), а перед 0 находится F (и -1 из старшего разряда).