<span>ln(100)/ln(2)~= 7 лампочек
ответ: 2
</span>
<span>Какому цвету в цветовой модели RGB соответствуют значения интенсивностей цветовых компонент (255, 0, 0)? белому чёрному синему красному зелёному</span>
<span>ответ: красному</span>
Var
i,a:integer;
ch:set of char;
n:string;
Begin
Write('Введите число ');
Readln(n);
ch:=['0'..'9'];
for i:= 1 to length(n) do
if n[i] in ch then a:=a+1;
case a of
1:Write('В числе ',a,' цифра');
2..4:Write('В числе ',a,' цифры')
else Write('В числе ',a,' цифр');
End;
<span>End. </span>
Ответ:
это рамка у меня получилось
Объяснение
procedure Stars(str: integer);
var
i:integer;
begin
for i:=1 to str do
write('*');
end;