15)program 15;
uses crt;
var a, b, c:integer;
otv:real;
begin
readln (a, b, c);
if (a> 0) and (b> 0) and (c> o ) then begin
writeln (sqrt (a), sqrt (b), sqrt (c));
end else if (a=0) or (b=0) or (c=0) THEN writeln ('0') else begin otv:=a*b*c; write (otv); END;
readln
end.
uses Math; // Ссылка на модуль с объявлением функции power
var
x, k, a, y: Real; // объявляются переменные типа "с плавающей запятой"
begin
Write ('Введите x, k, a: ');
ReadLn (x, k, a); // ввод с клавиатуры значений переменных
y := Power (x + 1, 2) / 3 / k + Power (a, 4) + 2; // power - функция возведения в степень
WriteLn ('y = ', y);
end.
1) расстояние вытянутой руки;
2)сообщить об этом учителю ;
3) Информатика - это наука о способах и методах представления, обработки, передачи и хранения информации с помощью ЭВМ.
4)Информация - сведения об окр.мире, получаемые человеком в процессе его жизнеобразовательной деятельности.
5)графическая
6)звуковая
7)глаз
8)ушей
9)убывание: 10 гб, 5 гб, 1 гб, 500 мб
возрастание: 500 мб, 1 гб, 5 гб, 10 гб
11) для защиты компьютера от угроз
12) Отличительными особенностями компьютерных вирусов являются: 1) маленький объем; 2) самостоятельный запуск; 3) многократное копирование кода; 4) создание помех для корректной работы компьютера
13)программу для уплотнения информационного обьема файлов
15) восстановления файлов из архива точно в таком виде, какой они имели до загрузки в архив.
16)создание вычислительной машины, написала первую в мире программу
20) система последовательных операций