program raf105;
var
a,b,c,sum,pro: real;
begin
write('Введите 3 вещественных числа: ');
readln(a,b,c);
sum:= a+b+c;
pro:= a*b*c;
if sum > pro
then writeln('Сумма больше произведения')
else if pro > sum
then writeln('Произведение больше суммы')
else writeln('Сумма и произведение равны');
end.
<h3><u>PascalABC 3.4.2</u></h3>
Информатику плохо знаю, поэтому могу дать ответ только на 1 и 2 задание
1
а)11 мб б) 7168 мб с) 5 мб
2
а) 524228 б б)10240 кб
Ответ:
program obmen;
var x,y,z:integer;
begin
writeln('введите x');
readln(x);
writeln(' введите y');
readln(y);
if x>y
then z:=x;
if z>y
then x:=y;
if z>x
then y:=z;
writeln('x= ', x);
writeln('y = ', y);
end.
Объяснение:
Смотри, ты вводишь x и y, и если x>y, то через if-ы присваиваешь значение x значению z; значению x значение y и значению y значение z
+
легкие,компактные, универсальные, дешевые
-
мало памяти, не прочные, информация не защищена, меньше скорость взаимодействия
С целью Удобства и защиты, если ты про кодировку страниц в соц. сетях или почты. А если нет, то для удобстава обработки,шифровки,сокращения записи.