var x,y,n,m,s,z:real;i,k:integer;
begin
write('Введите начало и конец диапазона по х'); Read(n,m);
write('Введите шаг расчета по х'); Read(z);
k:= round((m - n)/z)+1;x:=n;
for I:= 1 to k do begin
y:= x * 34* 2*sin(x);
writeln(x:4:1,y:11:6);x:= x + z;end;<span>end.</span>
идеи многих своих изобретений человек подглядел в природе.
Var s: string; i, count: integer;
begin
write('Введите текст: '); readln(s);
for i := 1 to length(s) do
if(s[i] <> ' ') then inc(count);
writeln('Кол-во символов: ', count);
<span>end.</span>
11000110 в двоичной системе.
В 8-й: 306
В 10-й: 198
В 16: C6
371 в восьмеричной системе.
В 2-й: 11111001
В 10-й: 249
В 16-й: F9
219 в десятичной системе.
В 2-й: 11011011
В 8-й: 333
В 16-й: DB
19C в шестнадцатеричной системе.
В 2-й: 110011100
В 8-й: 634
В 10-й: <span>412</span>
Звуковая,числовая,графическая,видео-информация,текстовая