<h3>PascalABC.NET 3.4.2, сборка 1837 от 11.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ReadArrString(5);
var b := a.Select(t -> t.Length).ToArray;
var n := b.Max;
for var i := 0 to 4 do
Writeln(a[i]:n, b[i]:3)
end.
var s:string;
i:integer;
begin
readln(s);
for i:= length(s) downto 1 do
if s[i]=',' then delete (s, i, 1);
writeln(s);
end.
При выполнении оператора c:=7 в ячейку оперативной памяти компьютера с именем c заносится значение 7
при выполнении оператора m:=120 в ячейку оперативной памяти компьютера с именем m заносится значение 120
При выполнении оператора z:=c∗m значения ячеек оперативной памяти с
именами c и m переносятся в процессор, где над ними выполняется операция
умножения. Полученный результат заносится в ячейку оперативной памяти с
именем z
Var a,b,c,d,m,n:real;
begin
writeln('Введите размеры комнаты (a,b)');
readln(a,b);
writeln('Введите размеры окна (с,d)');
readln(c,d);
writeln('Введите размеры двери (m,n)');
readln(m,n);
writeln('Площадь для оклейки: ',a*b-c*d-m*n);
end.
"Вес" одного символа в первом тексте - 6 бит, а во втором тексте - 2 бита, т. о. информационный вес первого текста в 3 раза больше второго (6/2=3)