Ответ:
var
n1, n2, dif: real;
begin
readln(n1, n2);
dif:= n1-n2;
if n1-n2 > 0 then
writeln('Разность положительная. Разность = ', dif)
else if n1-n2 < 0 then
writeln('Разность отрицательная. Разность = ', dif)
else
writeln('Разность равна нулю. Разность = ', dif);
end.
Объяснение:
//Прога на языке Паскаль:
var a, sum: double;
begin
write ('Введите первоначальную стоимость газеты: ');
readln (a);
sum:=a*50+(1.2*a*150);
write ('Заработок продавца: ', sum);
end.
Например: стол 1 достать тетрадь 2 открыть тетрадь 3 взять карандаш 4 нарисовать ножки стола 5 верхушку стола (могут быть ошибки в словах)
Я уж не силен в этой программе
но вот вроде должно получиться<span>
</span><span>var
a, b : array [1..16] of Integer;
begin
for var i := 1 to 16 do
a[i] := ReadLnInteger('a[' + i + '] =');
WriteLn('Массив A = ', a);
b := a;
Swap(b[2], b[5]);
Swap(b[4], b[9]);
Swap(b[7], b[15]);
Swap(b[9], b[16]); // повторяем обмен 9, если что?
WriteLn('Массив B = ', b);
end.</span>
Если,у тебя есть компьютер,то это- собственно, это и есть компьютер, по крайней мере, его самая наиважнейшая составляющая. В системном блоке размещены основные устройства приема, передачи, обработки и хранения информации. Именно к нему подключаются все, без исключения, устройства компьютера, например, монитор, клавиатура, принтер.(он может находиться на полу так же и на столе у кого как у меня на полу к примеру в нём ещё есть дисковод))