program seee;
uses crt;
var p,b,c:real;
i,v:integer;
begin
clrscr;
readln(p);
writeln;
writeln('mass price ');
writeln;
while v<>1000 do
begin
v:=v+50;
writeln(v,'g ',v*p/1000:2:2);
end;
readkey;
end.
Первый текст - 256 символов = 2^8 - битность 1 символа = 8 бит
Второй текст - 32 символов = 2^5 - битность 1 символа = 5 бит
8/5=1.6 раз
Есть прекрасная функция, заменяющая сразу при вводе
S=input().replace('h','H')
Print(S)
Задача: из 6 палок сделать 4 треугольника
Mod - это остаток от числа. Значит, 9 mod 2 = 1