1)3 * (умножить) 30 = 90 - строк всего 2)90 * 50 = 4500 - символов всего 3) 2250 * 8 = 18000 - бит весь текст 4)18000 : 4500 = 4 - вес одного символа 5) 2^4 ( два в четвёртой степени) = 16 - символов в алфавите ответ: 16.
// Программа выводит по 10 раз имя и фамилию тремя разными циклами for while
// repeat until
Program LoopName;
Uses Crt;
var name,s_name:string;
i:integer;
begin
clrscr;
write('Введите имя: ');
readln(name);
write('Введите фамилию: ');
readln(s_name);
writeln('Цикл For');
for i:=1 to 10 do writeln(name,' ',s_name );
writeln;
writeln('Цикл while');
i:=1;
while (i<=10) do
begin
writeln(name,' ',s_name );
i:=i+1;
end;
writeln;
writeln('Цикл repeat until');
i:=0;
repeat
writeln(name,' ',s_name );
i:=i+1;
until(i=10);
readkey;
end.
var x,y,z:real;
begin
readln(x,y);
z:=x*x*x-2.5*x*y+1.78*x*x-12.5*y+1;
writeln(z);
end.