1. Записывает введенное пользователем значение в переменную dr 2. integer 3. sqrt(число) 4. var 5. 16 6. 2 7. function x(a,b,c:integer); begin x:=-b+sqr(b)-sqr(4*a*c)*a; end; 8. 11 9. end. 10. d) 11. var a,b,c:integer; result:real; begin readln(a,b,c); result:=(a*b*c)/3; writeln(result:0:3); end. 12. real 13. оператор присвоения 14. Присвоить переменной F значение 125 15. write(B); или writeln(B); 16. корень из суммы квадрата х и ста делить на разность а и b умноженной на с 17. с) 18. Нет картинки как образован массив, значит сами решите 19. d) 20. c) 21. c)
alenaya69918
02.05.2021
//Язык Pascal
Program Test;
var Mas: array[1..10] of integer; result1: integer; result2: real;
function Sum(): integer; var summa: integer;
begin summa := 0;
for var i := 1 to 10 do summa := summa + Mas[i];
Sum := summa; end;
procedure Arifmetic(r1: integer; var A: real); begin A := r1 / 10; end;
Begin
for var i := 1 to 10 do begin Write('Введите ', i, ' элемент: '); Readln(Mas[i]); end;
2. Панорама
3. Фигура
4. Случайные
5. Растворение
6. Часы
7. Рябь
8. Блеск
9. Воронка
10. Отражение
11. Чертово колесо
12. Поворот
13. Окно
14. Орбита
15. Плавный вылет