program name;
uses crt;
var str: string;
i, count: integer;
begin
write('Текст : ');readln(str);
i := length(str);
if i > 0 then begin
count := 1;
while i > 0 do begin
if str[i] = ' ' then
count := count + 1;
i := i - 1;
end;
end
else
count := 0;
writeln('Кол-во строк в тексте: ', count);
readln;
end.
<span>В основании призмы правильный треугольник с стороной 4 см. Боковая поверхность
состоит из 3 прямоугольников, с основанием 4 см и каждый имеет площадь 48/3=16 см². Обозначим h – высота прямоугольника боковой
поверхности, длина которой равняется длине бокового ребра. Тогда площадь S= h·4,
или 16=h·4. Отсюда
находим высоту h =4 cм. Ответ: 4 см.
</span>
Const
a=-10;
b=1;
var
i: integer;
begin
for i:=a to b do
writeln('F1(',i,')=',1/Tan(i));
end.
Const
a=2;
b=10;
var
i: integer;
x,f,min,max: real;
begin
x:=a;
min:=power(x,3/5);
max:=min;
for i:=a to b do
begin
x:=i;
f:=power(x,3/5);
writeln(f);
if f<min then min:=f;
if f>max then max:=f;
end;
writeln('min=',min);
writeln('max=',max);
end.
Ответ:
Атрибут width (HTML тега <img>) определяет ширину изображения в пикселях. Рекомендуется всегда указывать ширину и высоту изображения.
Объяснение: