Линейная структура на языке <u>Pascal</u>
Нахождение расстояния
var V,S,t:real;
begin
readln(V,t);
S:=V*t;
writeln(S);
end.
Ветвление
var a,b:integer;
begin
readln(a,b);
if (a>b) then writeln('+++') else
writeln('---');
readln;
end.
Цикл
var i:integer;
begin
for i:=1 to 5 do writeln(i);
readln;
end.
Короткое решение:) Можно было бы, конечно, и без числа, но лучше будет, если интерпретатор сам распорядится ошибочным вводом =)
var a: integer;
b: string;
begin
readln(a);
b := inttostr(a);
writeln(length(b));
<span>end.
</span>
Область выше прямой → y >= 2*x
Правее оси ординат → x >= 0
Внутри окружности → y*y+x*x <= 4
(Формула окружности: x^2+y^2 = R^2
x*x +y*y = R - точка на окружности
x*x +y*y > R - точка вне окружности
x*x +y*y < R - точка внутри окружности)
Условия (y >= 2*x), (x >= 0) и (y*y+x*x <= 4) должны выполняться все вместе, поэтому между ними "and".
(Если было бы достаточно, чтоб выполнялось одно из данных условий, вместо "and" было бы "or". or не исключает, что могут выполняться все условия сразу.)
Ответ: (y >= 2*x)and(x >= 0)and(y*y+x*x <= 4).
Ответ:
1)Байт, килобайт, мегабайт, гигабайт и т.д
2)Информационный объем сообщения это - кол-во двоичных символов, которое используется для кодирования этого сообщения.
3)Бит - это единица измерения количества информации.
4)Скорость передачи информации - это объем данных, передаваемый за единицу времени.
Мультимедиа — информационная система, обеспечивающая
одновременное представление информации в различных формах — звук,
анимированная компьютерная графика, видеоряд. Например, в одном
объекте-контейнере может содержатьсяа также, возможно, способ интерактивного взаимодействия с ней.