Ответ:
const s:string='0123456789ABCDEF';//цифры СС
var n,m,ch:integer;
r:string;
begin
write('Введите число в 10 СС: ');
readln(ch);
write('Введите СС: ');
readln(m);
write('В ',m,' CC число ',ch);
if ch=0 then r:='0' else r:='';
while ch>0 do
begin
r:=s[ch mod m + 1]+r;//берем остаток от деления на CC и эту цифру пишем в начало строки
ch:=ch div m;//берем целое от деления на CC
end;
write(' равно ',r)
end.
1 час = 60 мин
разброс температуры 15, так как 27-12=15
60/15=4бит
4бит*3дня=12
Лицензионные –программы защищенные лицензионным соглашением(при установке ключом).
условно -бесплатная - Пользователю предоставляется версия программы с ограниченным сроком
действия (после истечения указанного срока программа перестает работать,
если за нее не была произведена оплата)
свободная программа - или ПО в отношении которого права пользователя на неограниченную установку, запуск программы
Var
i:integer;
begin
writeln('Введите символ: ');readln(i);
if (i>64) and (i<91) or (i>96) and (i<123) or (i>191) then
writeln('Это буква: ',chr(i))
else
writeln('Это символ: ',chr(i));
end.
1) s=0+3*2=6
2)s=6+4*2=14
3)s=14+5*224
4)s=24+6*2=36
5)s=36+7*2=50