Последовательно делим целую часть десятичного числа на основание системы, в которую переводим, пока десятичное число не станет равно нулю.
Полученные при делении остатки являются цифрами искомого числа. Число в новой системе записывают, начиная с последнего остатка
Program hren;
uses crt;
var i:real;
BEGIN
if check_temp()>60 then writeln('Пожароопасная ситуация');
END.
check_temp() - функция должна быть реализована в библиотеке crt и возвращать текущую температуру
Program hren;
uses crt;
var j, i:integer;
BEGIN
writeln('Введите первое число');
readln(i);
writeln('Введите второе число');
readln(j);
if i>j then
begin
writeln('Первое число больше')
end else
writeln('Второе число больше')
END.
<span>наука об общих закономерностях процессов у</span>правления<span> и передачи и</span>нформации<span> в различных с</span>истемах
Программа на паскале нужна?
program pro;
var S,V,Result:integer;
begin
readln(S,V);
Result:=S-V;
writeln(Result);
end.
Можно её сохранить на флешку или жёсткий диск.