Program noname; Var i, a, b, c, n:integer; Begin a:=0; b:=0 c:=0; For i:=1 to 20 do begin Readln(n); if (n mod 2=0) then a:=a+1; if (n mod 5=0) then b:=b+1; if (n>9) then If (n<100) then c:=c+1; End; Writeln(a); Writeln(b); WriteLn(c) ; End.
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)
Program noname;
Var i, a, b, c, n:integer;
Begin
a:=0;
b:=0
c:=0;
For i:=1 to 20 do
begin
Readln(n);
if (n mod 2=0) then
a:=a+1;
if (n mod 5=0) then
b:=b+1;
if (n>9) then
If (n<100) then
c:=c+1;
End;
Writeln(a);
Writeln(b);
WriteLn(c) ;
End.