Пусть видеопамять на компьютере имеет 1 кбайт . размер графической сетки 1024 x 768 . сколько страниц экрана одновременно разместится в видеопамяти при палитре из 64 цветов
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)
Var A: array [1..10] of integer; i, count: byte; mult: integer; begin writeln('Сгенерированный массив.'); randomize; for i := 1 to 10 do begin A[i] := random(11) + 10; writeln(A[i]:4); end;
count := 0; mult := 1;
for i := 1 to 10 do if A[i] mod 3 = 0 then begin count := count + 1; mult := mult * A[i]; end;
if (count = 1) or (count = 0) then writeln('Количество элементов кратных 3 = ', count) else writeln('Количество элементов кратных 3 = ', count, ' Произведение этих элементов = ', mult); readln; end.
