Число от 0 до 200 задается случайным образом. если в числе одна цифра, то возвести в квадрат, если две цифры, то извлечь квадратный корень, если три цифры, то найти сумму его цифр. включая операции див и мод, а также стандартную функцию рандом
Мультимедиа сейчас - это полноценное объединение компьютерных и других информационных технологий: видео, аудио, фото, кино, телекоммуникаций (телефон, телевидение, радиосвязь), не говоря уже о тексте и графике, как статической, так и динамической (анимационной). с приложений мультимедиа текст, графика, аудио- и видеоинформация объединяются в единое информационное поле, подобно тому как в кинофильме объединяются звук и движущееся изображение. однако в отличие от кинофильма мультимедиа представляет собой интерактивную среду, т. е. пользователь может процессом представления мультимедиа с различных средств ввода, таких как клавиатура и манипулятор мышь.
информатика - это как правило наука о методах и процессах сбора, хранения информации. с информатики мы хорошо владеем компьютером и другими электронными и портативными приборами. с науки информатики мы можем работать с различными программами, например как: paint - программа по созданию рисунков, граффики и т.д., так-же имеются программы по созданию мультфиьмов, анимаций, презентаций и т.д. в заключении хочу сказать, что без этой науки мир развивался бы дольше!
var a,b,k: integer;
begin
a:=random(201);
writeln ('a = ',a);
b:=a;
repeat
k:=k+1;
b:=b div 10
until b=0;
if k=1 then writeln ('В числе ',a,' одна цифра. Его квадрат равен ',a*a);
if k=2 then writeln ('В числе ',a,' две цифры. Квадратный корень из него равен ',sqrt(a):0:3);
if k=3 then writeln ('В числе ',a,' три цифры. Сумма его цифр равна ',a mod 10 + a div 100 + a div 10 mod 10);
end.