Var a, b: word;
k: byte;
begin
write ('Введите двузначное число: ');
readln (a);
b := a;
k := 0;
while b <> 0 do begin
a := a mod 10;
k := k + 1;
b := b div 10
end;
if (k <> 2) then
writeln ('Вводите только двузначные числа')
end.
мультимедиа - это информационная технология, с помощью которой информация представлена в различных ее видах. Например, звук, текст, видео, графика и т.д. Мультимедийные продукты применяются во всех областях и сферах деятельности человека: медицина, образование, техника, промышленность и т.д. К особенностям мультимедийных продуктов можно отнести следующие:
Нажав на <<старт>> он запустил МКВ на 30 сек через 15 сек нажал на кнопку +30 через сек на +30 и через сек на +30 т.е
он 3 раза нажал на кнопку +30=> 30*3=90
плюс секунды оставшие после нажатия на кнопку старт 30-15-1-1=13
90+13=103
ответ:103 сек
Const a = 5.8; Pi = 3.14;var x, y, k, P, S, t: real;begin t := sqrt(sin(x - 4)); x := -3; while (x <= 3) do begin if (t < 5) then y := sin(Pi / 2 + x) / cos (Pi / 2 - x) else y := Ln(a + x) / Power(a, 2); if (y < 0) then k := k + 1; writeln('x = ', x, '; y = ', y);
x := x + 0.5;
end;
if (t >= 0) then
begin
P := P * t;
{Сюда вставить нужно вычисление S, я не понял, что значит тот знак:)}
end;
Writeln('k = ', k, '; P = ', P, '; S = ', S);
<span>end.</span>
