В первом тексте на один символ отводится 5 бит (2^5 = 32), во втором 6 бит (2^6 = 64). Поэтому информационный объем второго текста в 6/5 = 1,2 раза больше
Тут есть два варианте решения, у Вас в задании написано что число Х и число А уже даны, то бишь с клавиатуры вводить их не надо. Тогда 1 вариант решения 1. и 2. задания:
1)
var x: integer;
begin
x:=5; // Поменяйте значение на нужное
writeln ('Квадрат числа ', x, ' = ',sqr(x));
end.
2)
var a,b: integer;
begin
a:=3; // Поменяйте значение на нужное
b:=a*2;
writeln ('Сумма A и B = ', a+b);
end.
2 вариант решения, все значения вводятся с клавиатуры:
1)
var x: integer;
begin
write ('Введите число Х: '); read(x);
writeln ('Квадрат числа ', x, ' = ',sqr(x));
end.
2)
var a,b: integer;
begin
write ('Введите число А: '); read (a);
b:=a*2;
writeln ('Сумма A и B = ', a+b);
end.
Вот вставь проверь там напишет при каких значениях
var x, L, M,i,i1: integer;
begin
for i:=0 to 1000 do
begin
i1:=i;
L:=0;
M:=0;
while i1 > 0 do
begin
L:=L+1;
if M < i1 then
begin
M:= (i1 mod 10) * 2;
end;
i1:= i1 div 10;
end;
writeln(L);
write(M);
end;
readln;
end.<span>
</span>
Треугольников 40
и 10 квадратов
Ответ: 4
Пояснение:
1)построил массив 10 на 10
2) выполнил все циклы по очереди и отмечал в каждой клетке полученное число после выполнения цикла