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)
Собирается-журналист опрашивает людей для статьи обрабатывается-ученик решает задачу упрощается-учитель объясняет материал создается-все тот же журналист придумывает статью запоминается-парнеь запоминает номер телефона девушки измеряется-программист рассчитывает сколько бит займет программа копируется-ученик списывает у одноклассника передается-две девушки обмениваются новостями принимается-ученики слушают учителя на уроке разрушается-придуманная выше указанным журналистом статья опровергается... делится на части-человек разбирает сообщение в котором пропущены пробелы ищется-человек ищет материал для доклада в интернете
s,i,a,b:integer;
begin
writeln('введите a и b');
readln(a,b);
s:=0;
for i:=a+1 to b-1 do
if (i mod 2<>0) then s:=s+i;
writeln(s);end.